Дано трехзначное число. Найти произведение кубов первой и второй его цифр.

Question

Информатика

Хрися

4 августа, 07:28

Дано трехзначное число. Найти произведение кубов первой и второй его цифр.

+1

Ответы (1)

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

Фессалоника · Answer 1

Program gt;

var n, s:integer;

begin

readln (n) ;

s:=sqr (n div 100) * (n div 100) * sqr ((n div 10) mod 10) * ((n div 10) mod 10) ;

writeln (s) ;

end.