Подсчитать количество целых чисел среди чисел a,b,c.
Ffaafafa
2
30.03.2019 17:40
3
Другие вопросы по теме Информатика
taisia2305
27.01.2021 13:09
Apple6pen
27.01.2021 13:09
adidok199680
27.01.2021 13:09
1g00se1
30.10.2021 12:26
МолнияНочнаяФурия
30.10.2021 12:15
KlodMone1
30.10.2021 11:57
КсюшаЛор
16.10.2020 10:10
googlman
16.10.2020 11:00
Популярные вопросы
- Представьте что вы тоже были на воскресной прогулке переработайте...
3 - Скажите в слове потом есть приставка по? ?...
3 - 1)взаимодействие растворов сульфата калия и нитрата свинца относится...
3 - Выбери выражения к и найди их значения. а) юные натуралисты измерили...
2 - Зробити фонетичну транскрипцію слів блакить,рясно,дощі,радість....
2 - Заменить дробь степенью с целым отрицательным показателем. 1/625...
3 - Нервная ткань имеется только у животных и отсутствует у растений....
1 - Запиши все трехзначные числа,суммацифр которых равна 3...
1 - Решите уравнение x : 4/25 =3/4 : 4/5...
1 - Вопросы по (пгп): 1)положение франции по отношению к горячим точкам...
3
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.