Введите 2 числа если первое больше второго то найдите их сумму иначе вычислите корень квадратный из меньшего

Question

Информатика

Санюта

17 апреля, 00:38

Введите 2 числа если первое больше второго то найдите их сумму иначе вычислите корень квадратный из меньшего

+4

Ответы (2)

Знаете ответ?

Луиза · Answer 1

Var a, b, c:real; Beginwrite ('Введите два числа: ') ; readln (a, b) ; if a>b then c:=a+belse c:=sqrt (a) ; writeln ('Ответ: ', c) ; end.

Пульхерья · Answer 2

Program Pr1;

uses crt;

var a, b, c:integer;

Begin

writeln ('a, b') ;

readln (a, b) ;

if a>b then c:=a+b

else c:=a*b;

writeln ('Задача Решена') ;

end.