Ответы на вопрос:
№3 - 3
№4 - 18
№5 7( тут так, потому что знак нестрогий)
Ничего, что без таблицы истинности?
Должно работать и для двухзначного и для 3ехзначного и для 99999значного var a,sum: integer; begin readln(a); while a> 0 do begin sum: =sum+a mod 10; a: =a div 10; end; writeln(sum); end.
Популярно: Информатика
-
Yoyoy3123123417.06.2020 15:26
-
malina7891121.02.2021 10:22
-
Mockov11.08.2022 02:57
-
diana048301.06.2021 00:53
-
Дашунич21.04.2020 13:23
-
Flash01706.08.2020 04:35
-
yaku06nastyaozq1r712.02.2022 11:05
-
Pelageya209119.05.2021 11:50
-
topovyjpocan09.05.2021 20:28
-
LeraLis20131.07.2021 04:25