Question

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

Answer 1

Используй frac() - ф-ция получает дробную часть. Если равно = 0, то оно целое.

Answer 2

Конечно, вот пример программы на Pascal, который считает, сколько из 15 введенных чисел являются целыми:

arduinoCopy code
program CountIntegers;

var
  i, num, count: integer;
  
begin
  count := 0;
  writeln('Введите 15 чисел:');
  for i := 1 to 15 do
  begin
    readln(num);
    if num = round(num) then
    begin
      count := count + 1;
    end;
  end;
  writeln('Количество целых чисел: ', count);
end.

В этой программе мы объявляем три переменные: i, num и count. Затем мы инициализируем count как 0 и выводим сообщение, чтобы пользователь ввел 15 чисел.

Затем мы запускаем цикл for, который выполняется 15 раз, и на каждой итерации мы считываем число, введенное пользователем, в переменную num. Мы затем проверяем, является ли num целым числом, с помощью функции round(num), которая округляет число до ближайшего целого значения. Если num равно результату округления, то мы увеличиваем count на 1.

После завершения цикла мы выводим количество целых чисел, найденных в последовательности.