Ответы
Ответ дал:
0
var n, d, nd, v, a: integer;
begin
readln(n);
d := 0;
nd := 0;
v:= 0;
while v <> n do
begin
read(a);
if a = 0 then
nd := nd + 1
else d := d + 1;
v := v + 1;
end;
if d < nd then
writeln('They do not understand!') // dovolnye < nedovolnye
else if d = nd then
writeln('May be I should buy more Tverdysh')// dovolnye = nedovolnye
else
writeln('I am hero!'); // dovolnye > nedovolnye
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад