Напишите программу, которая находит квадрат произведения цифр

введенного числа

Question

Информатика

Кирилич

7 мая, 23:21

Напишите программу, которая находит квадрат произведения цифр

введенного числа

+3

Ответы (1)

Знаете ответ на вопрос?

Косьма · Answer 1

Var a, p:integer;

begin

write ('a = ') ;

readln (a) ;

a:=abs (a) ;

p:=1;

while a0 do

begin

p:=p * (a mod 10) ;

a:=a div 10;

end;

p:=p*p;

writeln ('p = ', p) ;

end.

Пример:

a = 273

p = 1764

Напишите программу, которая находит квадрат произведения цифрвведенного числа

Напишите программу, которая находит квадрат произведения цифр

введенного числа