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

Question

Информатика

Хрися

25 ноября, 12:43

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

+4

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