Задать вопрос Регистрация
Помочь другим

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

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years