Склавиатуры вводятся три строки вида: " ". например: петров 129 сидоров 180 иванов 190 выведите на экран фамилию самого высокого человека. если таких несколько - напечатать всех.
206
354
Ответы на вопрос:
1) var x: integer; begin read (x); if (x=12) or (x=1) or (x=2) then writeln ('зима'); if (x=3) or (x=4) or (x=5) then writeln ('весна'); if (x=6) or (x=7) or (x=8) then writeln ('лето'); if (x=9) or (x=10) or (x=11) then writeln ('осень'); end. 2) var k,a: integer; begin readln(k); a: =k mod 10; if (k=11) or(k=12) or (k=13) or (k=14) then writeln ('у меня ',k,' друзей') else begin if (a=1) then writeln ('у меня ',k,' друг'); if (a=0) or ((a> =5) and (a< =9)) then writeln ('у меня ',k,' друзей'); if (a> =2) and (a< =4) then writeln ('у меня ',k,' друга'); end; end.
Популярно: Информатика
-
LimOonka04.04.2022 07:55
-
CherryyLou03.06.2020 18:43
-
PatiFon4ik29.07.2020 09:34
-
юлия176405.12.2022 14:00
-
sasa2659728.05.2023 07:06
-
denian1134329.01.2020 23:23
-
mariarura15.03.2021 00:53
-
vakhram25.11.2022 12:14
-
elya14405.11.2022 06:06
-
Jullia12312324.01.2020 15:55