Question

Здравствуйте! Я в стопоре!!! Подскажите,как вывести на экран в столбик первые 10 четных чисел в паскале? Спс)

Answer 1

Var i : integer;
begin
for i:= 1 to 10 do
begin
writeln(i*2);
end;
end.

Answer 2

Примерно так

var x : integer;

var i : integer;

begin

x := 2;

for i := 1 to 10 do begin

writeln(x);

x := x + 2;

end;

end.

Answer 3

Здравствуйте! Вот пример кода на языке Pascal, который выводит первые 10 четных чисел в столбик:

pascalCopy code
program PrintEvenNumbers;
var
  number, count: integer;
begin
  count := 0;
  number := 0;

  while count < 10 do
  begin
    number := number + 2;
    writeln(number);
    count := count + 1;
  end;
end.

Эта программа использует переменные number (чтобы хранить текущее четное число) и count (чтобы отслеживать количество выведенных чисел). Она использует цикл while, чтобы выводить числа до тех пор, пока не будет выведено 10 четных чисел.

Результат работы программы будет выглядеть так:

Copy code
2
4
6
8
10
12
14
16
18
20

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать.