Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
a, b, n: integer;
begin
read(a, b);
if sqr(a)>sqr(b) then n:=1 else n:= 2; writeln(N = , n);
end.