ПОМОГИТЕ ПОЖАЛУЙСТА! ДАЮ 20 БАЛЛОВв паскале определить кол-во целых чисел а

ПОМОГИТЕ ПОЖАЛУЙСТА! ДАЮ 20 БАЛЛОВ
в паскале
определить кол-во целых чисел а , в , с

Задать свой вопрос
1 ответ

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.

Егор Бугровецкий
frac что такое?
Vladimir Abraham
мы это еще не проходили
Амелия
round (x) проходили?
Геннадий Аленгович
нет
Дзаридзе Андрей
frac это функция , которая отдаёт значение после запятой,например число 5 = 5.0 ,то-есть функция возвратит 0,а у числа 12.2 вернется 2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт