Question

Написать программу подсчёта количества чисел, больше 5. Pascal ABC Срочно нужно!

Answer 1

Ответ:

begin

 var i:= readinteger('Введите число');

 var sum: integer;

 if i>=5 then

     sum := i-5

   else

     sum := 0;

 sum.Println

end.

Answer 2

Конечно, вот пример программы на Pascal ABC, которая считает количество чисел больше 5:

pascalCopy code
program CountNumbersAboveFive;
var
  num, count: integer;
begin
  count := 0;  { Инициализация счетчика }

  while true do
  begin
    write('Введите число (для завершения введите 0): ');
    readln(num);

    if num = 0 then
      break;  { Если введено 0, завершаем цикл }

    if num > 5 then
      count := count + 1;  { Увеличиваем счетчик, если число больше 5 }
  end;

  writeln('Количество чисел больше 5: ', count);
end.

Эта программа просит пользователя ввести числа. Если введено 0, программа завершает работу и выводит количество введенных чисел, которые были больше 5.

Сохраните этот код в файле с расширением .pas (например, count_numbers.pas) и скомпилируйте его с помощью среды разработки Pascal ABC.