Найдите наибольший из двух квадратов чисел A и B и выведите на печать N=1, если А²>B² и N=2, если наобарот. (Паскаль)

Question

Добрыня

25 июля, 20:47

+5

Ответы (1)

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

Тюша · Answer 1

Var

a, b, n: integer;

begin

read (a, b) ;

if sqr (a) >sqr (b) then n:=1 else n: = 2; writeln ('N = ', n) ;

end.