Найти квадрат наибольшего из двух чисел а и б. вывести на экран число 1, если наибольшим является число а , число 2- если наибольшим числом является б
Найти квадрат наибольшего из двух чисел а и б. вывести на экран число 1, если наибольшим является число а , число 2- если наибольшим числом является б
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then writeln (sqr(a),' ' ,1) else
writeln (sqr(b),' ', 2);
readln;
end.
Не нашли ответ?
Похожие вопросы