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

Question

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

Comments

Пж быстро

---

Кто- нибудь сможет решить?

---

Осталось 5-8 мин

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.

Comments

Какой-то глюк при редактировании: Вы не можете изменить ресурс, который не является вашим. Если смогу - отредактирую позже.