Ответы на вопрос:
uses crt;
var a,b,c: real;
k: integer;
begin
writeln('введите a,b,c: ');
read(a,b,c);
k: =0;
if frac(a)=0 then k: =k+1;
if frac(b)=0 then k: =k+1;
if frac(c)=0 then k: =k+1;
write('количество целых=',k);
end.
Популярно: Информатика
-
MartKsenka10.11.2022 02:31
-
ВладиславБелоус22.09.2022 16:24
-
ewenchester12.01.2021 17:44
-
Софайа19.12.2022 15:40
-
таир2012.01.2022 11:54
-
nnfilinaaaa12.02.2022 05:04
-
shabanovkirillp02mew10.07.2022 17:18
-
Агата171303.06.2021 15:50
-
student254411.01.2023 13:24
-
denisovavara1106.07.2022 01:14