20 в паскале определить кол-во целых чисел а , в - вопрос №209667743 от Alikjon 02.11.2020 15:42

Question

Информатика: 20 в паскале определить кол-во целых чисел а , в , с

Alikjon · Answer

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.