program game;
var
costi, me, comp, myscore, compscore, round: integer;
begin
randomize;
costi := random(6);
myscore := 0;
compscore := 0;
for round := 1 to 10 do
begin
writeln('Введите ваще число от 1 до 6');
readln(me);
if me = costi then
writeln('Выпало число ', costi, '. Вы угадали, счет становится (', myscore + 1, ';', compscore,')')
else writeln('Выпало число ', costi, '. Вы не угадали, счет остается преждним (', myscore, ';', compscore,')');
if me = costi then myscore := myscore + 1;
writeln('Кости бросает компьютер');
costi := random(6);
comp := random(6);
if comp = costi then
writeln('Выпало число ', costi, '. Компьютер угадал, счет становится (', myscore, ';', compscore + 1,')')
else writeln('Выпало число ', costi, '. Компьютер не угадал, счет остается преждним (', myscore, ';', compscore,')');
if comp = costi then compscore := compscore + 1;
end;
if myscore>compscore then writeln ('Вы победили!');
if myscore<compscore then writeln ('Вы проиграли.');
if myscore=compscore then writeln ('Боевая ничья!');
end.
делаешь по Блок схемам.
например 1 вариант.
Паскаль
1-ая блок схема.
b=12; c=0
2-ая блок схема.
b=4
5-ая блок схема -> Если да то Конец.
Если нет,то:
3-ая блок схема.
с= с+b
b=b-2
4-ая блок схема.
Тут надо решать.
То есть значения из 1 схемы.
Подставляешь по формуле 3 схемы.
Должно получится
с= 0+12= 12
b= 12-2= 10
b=10
по 2 блок схеме b=4,то есть не подходит, итак решаем дальше,пока не получится b=4.
но по условии тебе надо написать чему будет равно "с"
То есть,когда у тебя получается b=4, то "с" у тебя должно будет =36.
