Написать программу которая для введённого пятизначного числа выводит количество нулей в нем
243
425
Ответы на вопрос:
Var n: integer; begin read(n); write(ord(n mod 10 = 0) + ord(n div 10 mod 10 = 0) + ord(n div 100 mod 10 = 0) + ord(n div 1000 mod 10 = 0)); end.
Вот уже писал.uses crt; var a,n,i: integer; begin clrscr; write('vvedite chislo: '); read(a); n: =0; while a< > 0 do begin if a mod 10=0 then inc(n); a: =a div 10; end; writeln('n=', n); end.
Популярно: Информатика
-
diana1717120.07.2020 02:45
-
Ибрагим00230.04.2021 12:50
-
yaroslavus08.01.2021 20:08
-
serjksu03.11.2022 14:56
-
ura78451223.02.2021 07:19
-
Khidjana9527.10.2020 02:33
-
ANJELIKA203018.08.2020 15:29
-
lukianova20172031.03.2023 20:51
-
mauzeriss18.11.2022 16:41
-
ellykhrom26.03.2023 20:22