Question

Вывести на экран числа кратные 6 из интервала 50-100. В Паскале АВС

Answer 1

Var
  i:integer;
begin
  i:=54;
  repeat
    Write(i:3);
    i:=i+6
  until i>100;
  Writeln
end.

Результат
 54 60 66 72 78 84 90 96

Answer 2

Ответ на вопрос

Для вывода на экран чисел из интервала 50-100, которые кратны 6, в Паскале необходимо написать следующий код:

program ABC;

var
  i: Integer;

begin
  for i := 50 to 100 do 
  begin
    if i mod 6 = 0 then
      WriteLn(i)
  end;
end.

Этот код содержит цикл for, который итерируется от 50 до 100. Внутри цикла проверяется условие i mod 6 = 0, которое проверяет, кратно ли текущее число 6. Если условие истинно, то число выводится на экран функцией WriteLn. Таким образом на экран будут выведены числа 60, 66, 72, 78, 84, 90, 96, 102, которые попадают в заданный интервал и кратны 6.