Количество целых чисел среди трех заданных.

@лёлька · Регистрация: 02.02.2010

Написать программу, которая подсчитывает количество целых чисел среди трех заданных.

@Puporev · 09.02.2010, 14:23

Pascal

uses crt;
var a,b,c:real;
    k:byte;
begin
clrscr;
write('Введите 3 числа:');
readln(a,b,c);
k:=ord(frac(a)=0)+ord(frac(b)=0)+ord(frac(c)=0);
write('Целых чисел=',k);
readln
end.

@лёлька 17 / 17 / 0 Регистрация: 02.02.2010 Сообщений: 92
		1
	Количество целых чисел среди трех заданных. 09.02.2010, 13:19. Показов 2128. Ответов 1 Метки нет (Все метки) Написать программу, которая подсчитывает количество целых чисел среди трех заданных. 0

Опции темы

Количество целых чисел среди трех заданных.

Решение