20 в паскале определить кол-во целых чисел а , в , с
olyaperminova
2
04.10.2019 00:40
0
Другие вопросы по теме Информатика
влада409
18.07.2019 15:10
kir1kir1
18.07.2019 15:20
Danila5535
18.07.2019 15:20
Grooshka
18.07.2019 15:20
Полина112006
18.07.2019 15:20
Anna050503
18.07.2019 15:20
lyubimova84
18.07.2019 15:20
arhivnaykr
18.07.2019 15:30
marches
18.07.2019 15:30
lenin1488
18.07.2019 15:30
Популярные вопросы
- Подскажите пожайлуста на 7,8,9 и 10 во...
1 - РЕШИТЕ ОЧЕНЬ НАДО 0,4(x - 3) = 0,5(4 + x) - 2,5...
1 - Установите соответствие между событиями и годами. СОБЫТИЯ 1) начало княжения...
2 - 1.Распределить животных по материкамМатерики: Евразия, Африка, Северная...
3 - Почему органы дыхания часто называют воздушными воротами в организм?...
3 - Вариант 1. 1. теч…т 2.еж…вый 3.круж…к 4.кумач…вый 5.печ…ное 6.реш…нный...
3 - Ұн құрамындағы химиялық элементтер...
3 - Зделать морфологический разбор 3 глаголов лаяла погасеш вернется...
3 - 1. Каковы в поэме первые сведения о Василии Теркине? 2. В каких главах...
3 - Найдите координаты точек изображенных на рисунке....
3
uses crt;
var a,b,c: real;
k:integer;
begin
writeln('Введите a,b,c: ');
read(a,b,c);
k:=0;
if frac(a)=0 then k:=k+1;
if frac(b)=0 then k:=k+1;
if frac(c)=0 then k:=k+1;
write('Количество целых=',k);
end.