Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d. (с помощью разветвления)

Question

Информатика

Эвтерпа

23 января, 17:35

Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d. (с помощью разветвления)

+3

Ответы (1)

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

Фостер · Answer 1

uses crt;

var a, b, c: real;

k: byte;

begin k:=0;

write ('a=') ;

readln (a) ;

if round (a) = a then k:=k+1;

write ('b=') ;

readln (b) ;

if round (b) = b then k:=k+1;

write ('c=') ;

readln (c) ;

if round (c) = c then k:=k+1;

writeln (k) ;

readln;

end.