Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d.(с помощью разветвления)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.