Ответы на вопрос:
Если я правильно понял условие, var a,b,c: integer; integer; begin readln(a,b,c); if (a+b< 100) or (a+c< 100) or (b+c< 100) then writeln(1) else writeln(0) end.
Популярно: Информатика
-
kirill163aye13.02.2020 06:49
-
Gaxling07.05.2022 19:55
-
tasyakondrateva026.11.2020 00:40
-
lllaasaw26.07.2022 19:10
-
kotnapnewme123p04tz410.01.2021 04:21
-
NcsON23.11.2020 17:11
-
Tan13Nanika20.07.2021 09:40
-
romakim02kum12.04.2021 22:30
-
nusunusretp0ale816.12.2021 17:39
-
2000030405.02.2021 23:53