• Предмет: Информатика
  • Автор: Манюнчик19
  • Вопрос задан 10 лет назад
< >

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

Ответы

Ответ дал: emblerik
0

var

  a, b, c : real;

  count : byte;

begin

  read (a, b, c);

  count := 0;

  if frac (a) = 0 then inc (count);

  if frac (b) = 0 then inc (count);

  if frac (c) = 0 then inc (count);

  writeln (Count);

end.

Похожие вопросы
Русский язык
2 года назад
Составьте предложения по схемам: 1) [ ], ( которые ). 2) [ ], ( где )? 3) [ там, (где), ]. 4) Чтобы ( ), [ ]. 
Английский язык
2 года назад
Здравствуйте помогите с английским. Нужно составить 5 предложений по тексту на тему "Я соглсен с психологами,что...." (только простеньких предложений, потому что мне их предстоит выучить). См. во
Физика
7 лет назад
Поезд подходитк станции,тормозит с ускорением (-0,5 м/с²). Определите тормозной путь,если за 10 с до остановки скорость поезда была равно 36 км/ч
История
7 лет назад
ПОЖАЛУЙСТА ПОМОГИТЕ ЗАВТРА СОР ПО ВСЕМИРНОЙ ИСТОРИИ
Геометрия
10 лет назад
В прямоугольнике АВСD АЕ и СF - перпендикуляры, опущенные из вершин А и С на диагональ ВD. Угол между диагоналями равен 30 градусов, СF=2 см. Найдите длину диагонали ВD. 
Алгебра
10 лет назад
Постройте график линейной функции у=2х-3 С помощью графика найдите: а) Наименьшее и наибольшее значение функции на отрезке [-2;1]
Геометрия
10 лет назад
АВСД-трапеция,ВС паралельна АД,О-точка пересечения ее диагоналей, АС перпендикулярна ВД,Площадь ВОС=16 корней из 2,площадь АОД 36 корней из 2,АВ=СД.Найдите площадь треугольника АОВ
География
10 лет назад
помогите плис характеристика Бразилии по плану