Предмет: Информатика, автор: AliceFoxesAd

Программа запрашивает 4 числа и проверяет, сколько в них равны 10.
PascalABC

Ответы

Автор ответа: alex44170
0

var

   i, kol, ch: longint;

begin

   kol := 0;

   for i := 1 to 4 do  

   begin

       readln(ch);

       if ch = 10 then inc(kol);

   end;

   writeln('Ответ: ', kol);

end.

Похожие вопросы
Предмет: Английский язык, автор: nastastamatova
Предмет: История, автор: скат3