Общему понятию «поэт» найди единичное понятие из списка. а. македонский, руссо, прокофьев, суриков, - id666940120200321 от sarranuryeva 21.03.2020 13:53

Question

Информатика: Общему понятию «поэт» найди единичное понятие из списка. а. македонский, руссо, прокофьев, суриков, амазонка, ладожское озеро, лермонтов, ломоносов, карпаты.

sarranuryeva · Accepted Answer

Var n, i, sum1, sum2, buf: integer;
begin
writeln('Введите количество бросков');
readln(n);
sum1 := 0;
sum2 := 0;
i := 0;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');
readln(buf);
sum1 := sum1 + buf;
end;

for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');
readln(buf);
sum2 := sum2 + buf;
end;
if sum1 = sum2 then writeln('Ничья') else
if sum1 > sum2 then writeln('Победил человек по имени А')
else   writeln('Победил человек по имени B');
end.
Как то так ...

Общему понятию «поэт» найди единичное понятие из списка. а. македонский, руссо, прокофьев, суриков, амазонка, ладожское озеро, лермонтов, ломоносов, карпаты.

MOGZ ответил