Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Урок 10 - While (образец)

РТ, задание 1 (стр. 24). Составить программу, выводящую в одну строку четные числа от 1 до 10.
Program P1;
  Var x:Integer;
Begin
x:=2;
While x<=10 Do
  Begin
    Write(x,' ');
    x:=x+2;
  End;
End.

Разделы сайта