Дано три числа x, y, z. Вычислить количество чисел больших 7.
var
x, y, z : real;
k : byte;
begin
read (x, y, z);
k := 0;
if x > 7 then inc (k);
if y > 7 then inc (k);
if z > 7 then inc (k);
writeln (k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
