Ответы на вопрос:
1) var x,y: ineger; begin readln(x,y); if x> y then wrietln('x starshe y na', x-y) else writeln('y starhe x na ',y-x); readln; end. 2) var a,b,c: integer; begin if a+b> c then begin if (a+c> b) and (b+c> a) writeln('treygolnik') else writeln('error'); end else writeln('error'); end.
Популярно: Информатика
-
okcanatsarenko02.09.2021 12:44
-
Hika67801.01.2022 16:58
-
thefirststudent24.11.2022 08:43
-
tanya59822.04.2022 15:37
-
qqqq2707.06.2020 15:11
-
hakimullinaale17.01.2020 19:52
-
Даринёк15.02.2020 17:06
-
Elizabeth100624.01.2023 00:34
-
karinaalisa19.07.2022 09:51
-
Sabriba07711.05.2023 06:42