Подсчитать количество целых среди чисел а, b, с.

Составить программу.

Question

Информатика

Вася

31 июля, 10:26

Подсчитать количество целых среди чисел а, b, с.

Составить программу.

+4

Ответы (1)

Знаете ответ на вопрос?

Мартьян · Answer 1

var

a, b, c:real;

count:integer;

begin

count : = 0;

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

write ('c = ') ; readln (c) ;

if Frac (a) = 0 then

count : = count + 1;

if Frac (b) = 0 then

count : = count + 1;

if Frac (c) = 0 then

count : = count + 1;

writeln ('Целых чисел - ', count) ;

end.

Подсчитать количество целых среди чисел а, b, с.Составить программу.

Подсчитать количество целых среди чисел а, b, с.

Составить программу.