Подсчитать количество целых среди чисел а, b, с.

Составить программу.

1

Ответы и объяснения

Лучший Ответ!
  • Tlalok
  • почетный грамотей
2013-03-12T19:22:43+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.