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

максим1720 максим1720    1   20.09.2019 12:50    1

Ответы
SofiLand854 SofiLand854  08.10.2020 04:36
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.
ПОКАЗАТЬ ОТВЕТЫ
Katerina123777 Katerina123777  08.10.2020 04:36
Var a,b,c:real;Beginwrite('Введите два числа: ');readln(a,b);if a>b then c:=a+belse c:=sqrt (a);writeln('ответ: ', c);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика