Два игрока А и В бросают кубик N раз, суммируя результаты бросков. Напишите программу определяющую победителя после N бросков.

Question

Демид Федоров

Информатика

25 декабря, 15:07

Два игрока А и В бросают кубик N раз, суммируя результаты бросков. Напишите программу определяющую победителя после N бросков.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Сарык · Answer 1

var a, b, i, n, c, d:integer; begin a:=0; b:=0; readln (n); for i:=1 to n do begin writeln ('Введите число игрока A'); readln (c); a:=a+c; writeln ('Введите число игрока B'); readln (d); b:=b+d; end; if a>b then writeln ('Победителем стал A. Его число:', a) else writeln ('Победителем стал B. Его число:', b); END.