Предмет: Информатика,
автор: AliceFoxesAd
Программа запрашивает 4 числа и проверяет, сколько в них равны 10.
PascalABC
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Биология,
автор: arkanovadara5
Предмет: Литература,
автор: wwfotosh
Предмет: Английский язык,
автор: nastastamatova
Предмет: История,
автор: скат3