Как с помощью цикла while вывести на экран квадраты всех цифр
Как с помощью цикла while вывести на экран квадраты всех цифр
Гость
Ответ(ы) на вопрос:
Гость{PascalABC}
var a:integer;
begin
while a<10 do begin
write(a*a,' ');
a:=a+1;
end;
end.
Не нашли ответ?
Похожие вопросы