Определить, сколько чисел являются целыми

@v_pa1n · Регистрация: 01.02.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня есть небольшая проблема, помогите, пожалуйста. Вот задание: Вводятся 15 чисел. Определить, сколько среди целых чисел.

Я попытался сделать программу, но вылезает такая ошибка (к строке: "if mod 1 = 0...": Program1.pas(13) : Нельзя преобразовать тип real к integer. Как я не старался, все равно не получается запустить программу. Вот мой код:

Pascal

const n = 15;
var
 i : integer;
 s, x : real;
begin
 i:=1;
 s:=0;
 while i<=n do
  begin 
   Writeln('Введите ', i, '-е число ');
   Readln(x);
   i:=i+1;
   if x mod 1 = 0 then s:=s+x;
   end;
   Write('Всего целых чисел: ', s);
 end.

Я бы мог все переменные сделать integer-ом, но тогда смысл задания теряется, я даже не смогу написать дробное число. В чем может быть проблема?

@Puporev · 02.11.2013, 15:22

Pascal

const n = 15;
var
 i, s : integer;
 x : real;
begin
 i:=1;
 s:=0;
 while i<=n do
  begin
   Writeln('Введите ', i, '-е число ');
   Readln(x);
   if frac(x) = 0 then s:=s+1;
   i:=i+1;
  end;
 Write('Всего целых чисел: ', s);
end.

@ildwine · 02.11.2013, 15:27

Можно так:

Pascal

const n = 15;
var
 i, k : integer;
 x : real;
 
begin
 i:=1;
 k:=0;
 while i<=n do
  begin 
   Writeln('Введите ', i, '-е число ');
   Readln(x);
   i:=i+1;
   if x = round(x) then inc(k);
   end;
   Write('Всего целых чисел: ', k);
 end.

Добавлено через 1 минуту
v_pa1n, вы у себя кстати считаете сумму а не количество, я поправил
Лучше конечно через frac, что-то я про нее забыл

@v_pa1n · 02.11.2013, 15:35 **[ТС]**

Ой, точно, не заметил, спасибо вам. И про frac тоже забыл.

Определить, сколько чисел являются целыми

Решение

Решение

@v_pa1n 0 / 0 / 0 Регистрация: 01.02.2013 Сообщений: 9
	02.11.2013, 15:35 [ТС]	4
	Ой, точно, не заметил, спасибо вам. И про frac тоже забыл. 0