Question

Составьте программу, которая выводит на экран четные числа от 10 до 20, по одному числу в строке. Язык программирования PaskalABC

Answer 1

Program vivod;
Var i: integer; 
Begin   
   for i:=10 to 20 do  
   if i mod 2=0 then  
   writeln(i); 
End.

Answer 2

Я могу помочь вам с написанием программы на языке PascalABC, которая выводит на экран четные числа от 10 до 20, по одному числу в строке. Вот пример такой программы:

program EvenNumbers;
var
  i: integer;
begin
  for i := 10 to 20 do
    if i mod 2 = 0 then
      writeln(i);
end.

Эта программа использует цикл `for` для перебора всех чисел от 10 до 20. Для каждого числа `i` она проверяет, является ли оно четным, с помощью оператора `mod`, который возвращает остаток от деления. Если `i mod 2 = 0`, то число `i` четное, и оно выводится на экран с помощью функции `writeln`. Эта функция печатает значение своего аргумента и переводит курсор на новую строку. Таким образом, программа выводит на экран четные числа от 10 до 20, по одному числу в строке. Надеюсь, это поможет вам понять, как работает программа.