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

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

Question

Информатика

Вася

1 апреля, 13:41

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

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

+5

Ответы (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

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

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

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