Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использовать!
Вывести таблицу квадратов чётных чисел от 1 до 19. Условный
оператор не использовать!
Гость
Ответ(ы) на вопрос:
ГостьVar a,bi: int64;
Begin
a:=2;
Repeat
b:=a×a;
Write(b,' ');
a:=a+2;
until a=18;
End.
Не нашли ответ?
Похожие вопросы