var a, b, c:real;
count:integer;begin count := 0; write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if Frac(a) = 0 then count := count + 1; if Frac(b) = 0 then count := count + 1; if Frac(c) = 0 then count := count + 1; writeln('Целых чисел - ', count);end.
Відповідь:
Через <a src='ссилка'>