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

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

Задать свой вопрос
Эвелина Вижерсова
Пж быстро
Pentehin Timur
Кто- нибудь сможет решить?
Вячеслав Сухоносенко
Осталось 5-8 мин
2 ответа
Var a,b,c:real;Beginwrite('Введите два числа: ');readln(a,b);if agt;b then c:=a+belse c:=sqrt (a);writeln('Ответ: ', c);end.
Вера Домина
Какой-то глюк при редактировании: Вы не можете изменить ресурс, который не является вашим. Если смогу - отредактирую позднее.
Program Pr1;
uses crt;
var a,b,c:integer;
Begin
writeln('a,b');
readln(a,b);
if agt;b then c:=a+b
else c:=a*b;
writeln('Задача Решена');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт