Дано два положительных числа А и В. Найти большее и возвести в третью степень

Question

Информатика

Айшешерфе

23 июня, 12:05

Дано два положительных числа А и В. Найти большее и возвести в третью степень

+2

Ответы (1)

Знаете ответ?

Аницетта · Answer 1

Program Program1;

var a, b: integer;

begin

write ('Введите числа: ') ;

readln (a, b) ;

if a > b then a: = a*a*a

else b: = b*b*b;

end.

/ / Никаких гарантий.