Домашнее задание:Решить задачи:Задаются два разных по величине числа. Определить какое из...

Question

Домашнее задание:Решить задачи:Задаются два разных по величине числа. Определить какое из этих чисел больше. (Сравнение двух чисел)Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличит второе число в пять раз.

Answer 1

Var a,b: integer; a1,b1: real;
begin
write ('Введите первое число: '); read (a);
write ('Введите второе число: '); read (b);
a1:=sqrt(a);
b1:=sqrt(b);
writeln ('Квадратный корень из ',a, ' = ', a1);
writeln ('Квадратный корень из ',b, ' = ', b1);
if b1end.