Напечатать все целые числа от а до б и квадраты всех целых чисел…

Question

Напечатать все целые числа от а до б и квадраты всех целых чисел от а до б через for иwhile.

Answer 1

94

riviera163

27 марта 2023

Var a, i, b: integer; begin readln (a, b); for i: =a to b do writeln (i, ', sqr (i); i: =a; while (i <= b) do begin writeln (i, ', sqr (i); inc (i); end; end. В одной программе оба подхода=)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: