Дано натуральное число n. Вывести квадраты цифр заданного числа.
Нет комментариев
Ответы
Гость Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
While n > 0 do
Begin
Write(Sqr(n mod 10),' ');
n:=n div 10
End;
End.
Нет комментариев
Список предметов
