1)Повторить 14 раз вывод слова Повтор в столбик .
2)Вывести на экран все целые числа из диапазона от 200 до 600, оканчивающую на любую четную цифру.
pascallllll
2)Вывести на экран все целые числа из диапазона от 200 до 600, оканчивающую на любую четную цифру.
pascallllll
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
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.