Ответы на вопрос:
Var i, c: int64; s: string; begin readln(s); if(s.length = 5) then begin for i : = 1 to 5 do c : = c + strtoint(s[i]); writeln(c); if(c > = 20) and (c < = 25) then write('находится') else write('не находится'); end; end.
Популярно: Информатика
-
kliza01080619.04.2022 00:19
-
Лоликус29.07.2020 09:05
-
anyyy00116.07.2021 12:41
-
DianaDi111111106.12.2021 14:12
-
mmedvedev38930.05.2023 11:49
-
ilyavarbanetsozotem12.09.2022 23:37
-
jiminlave44925.06.2023 23:17
-
sako991014.04.2023 08:09
-
янамурадян23.02.2022 09:48
-
virabasusta07.08.2022 10:11