Question

Задано натуральное число N. Выведите на экран натуральные числа кратные 5-ти из отрезка [1;N]. Надо ввести эту программу в Pascal, но я не понимаю какие линии кода вводить. Буду благодарен за помощь.

Answer 1

Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)

Answer 2

Конечно! Вот пример программы на Pascal, которая выводит на экран все натуральные числа, кратные 5, из отрезка [1;N]:

pascalCopy code
program MultiplesOfFive;

var
  N, i: Integer;

begin
  // Вводим значение N с клавиатуры
  Write('Введите значение N: ');
  ReadLn(N);

  // Выводим на экран все числа, кратные 5, из отрезка [1;N]
  for i := 1 to N do
  begin
    if i mod 5 = 0 then
      Write(i, ' ');
  end;

  ReadLn;
end.

В этой программе мы используем цикл for для перебора всех чисел от 1 до N. Затем мы проверяем, является ли текущее число i кратным 5 с помощью оператора mod. Если число кратно 5, то выводим его на экран.

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