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

Question

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

Answer 1

Примерно так

var x : integer;

var i : integer;

begin

x := 2;

for i := 1 to 10 do begin

writeln(x);

x := x + 2;

end;

end.

Comments

Спасибо! Очень помогли!!!)

Answer 2

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

Comments

Спасибо. Помогли!)

---

Очень интересный вариант решения кстати!!Спасибо!!!

---

Всегда пожалуйста