Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

Урок 9 - While (образец решения)

Пример1. Найти наименьшее число на промежутке [200, +∞), которое нацело делится на 43.

Program P1;
  Var x:Integer;
Begin
   x:=200;
  While x mod 43<>0 Do
     x:=x+1;
  Write('x=',x)
End.

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