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

Question

Информатика

Далила

18 января, 01:59

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

+5

Ответы (2)

Знаете ответ на вопрос?

Петря · Answer 1

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.

Константиныч · Answer 2

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