ПОМОГИТЕ ПОЖАЛУЙСТА! ДАЮ 20 БАЛЛОВ в паскале определить кол-во целых чисел а , в , с

Question

ПОМОГИТЕ ПОЖАЛУЙСТА! ДАЮ 20 БАЛЛОВ в паскале определить кол-во целых чисел а , в , с

Answer 1

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.

Comments

frac что такое?

---

мы это еще не проходили

---

round (x) проходили?

---

нет

---

frac это функция , которая возвращает значение после запятой,например число 5 = 5.0 ,то-есть функция вернет 0,а у числа 12.2 вернется 2