var
i, kol, ch: longint;
begin
kol := 0;
for i := 1 to 4 do
readln(ch);
if ch = 10 then inc(kol);
end;
writeln('Ответ: ', kol);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.