Дано три числа 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.