Ответы на вопрос:
вот более короткое:
var a,b: real;
begin
readln(a,b);
if a> b then writeln(a+b) else writeln(a*b);
writeln(' решена');
end.
var a,b,c: integer;
begin
readln(a,b,c);
if a< (b+c) then writeln('не слишком длинный') else writeln('перебор');
end.
Популярно: Информатика
-
elizavetabobrova16.02.2020 01:44
-
ПрофессиАНАЛ23.06.2022 04:33
-
Плювиофил12.09.2021 03:14
-
ДашаааDidek17.05.2022 18:23
-
PuvMan13.09.2020 00:52
-
kadri106.06.2020 10:33
-
keksikgovad16.07.2020 23:51
-
irabirykova1822.03.2021 22:05
-
Vladchery30.12.2021 12:32
-
lerahmru19.04.2021 05:51