Question

1)Повторить 14 раз вывод слова Повтор в столбик .
2)Вывести на экран все целые числа из диапазона от 200 до 600, оканчивающую на любую четную цифру.
pascallllll

Answer 1

Ответ:

program Ex1;

var

 i: Integer;

begin

 for i := 1 to 14 do

   WriteLn ('Повтор');

  ReadLn;

end.

- - - - - - - - - - - - - - - - - - - - - - - - - - - -

program Ex2;

var

 i: Integer;

begin

 for i := 200 to 600 do

   if i mod 2 = 0 then

     Write (i, ' ');

 ReadLn;

end.