Ответы на вопрос:
1: program a1; var i: integer; begin readln(i); if i> 2 then if i> 5 then if i> 8 then if i> 11 then writeln('зима') else writeln('осень') else writeln('лето') else writeln('весна') else writeln('зима'); end. 2: program a2; var k: integer; begin readln(k); if k mod 10 = 1 then writeln('у меня ',k,' друг') else begin if (k mod 10 < 5) and (k mod 10 > 1)and(k div 10 < > 1) then writeln('у меня ',k,' друга') else writeln('у меня ',k,' друзей'); end; end. //вроде все продумал если нет, извиняйте
Популярно: Информатика
-
shvartsberg11101.07.2021 04:03
-
Мила09806.05.2023 16:36
-
darilinamoo12.12.2020 21:12
-
kpy406.01.2022 01:02
-
seregalock04.08.2020 01:07
-
LUBUMAR01.05.2020 22:23
-
ruslana8020508.04.2021 17:20
-
vadolkaa07.01.2021 18:38
-
kennysussus22.09.2020 23:04
-
Сэээээ26.10.2020 14:49