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