В компьютер вводятся два произвольных положительных числа a1 и a2 - длины сторон двух кубиков. Требуется найти объём кубика, большего по размеру. Составьте блок-схему и протокол.

Исходные данные a1=5, a2=20

Question

Артемий

10 ноября, 21:45

+3

Ответы (1)

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

Хариесса · Answer 1

Var a1, a2:integer;

begin

readln (a1) ;

readln (a2) ;

a1:=a1*a1*a1;

a2:=a2*a2*a2;

if a1>a2 then writeln (a1) else

writeln (a2) ;

end.