Предмет:
ИнформатикаАвтор:
pixiebuhtАвтор:
colon59//PascalABC.NET v3.3 1633
begin
var num:=ReadInteger('Введите число: ');
var sum:=0;
for var i:=1 to IntToStr(num).Length do
if IntToStr(num)[i] = '0' then sum += 1;
writeln('Количество нулей: '+sum);
end.
Автор:
benny2p9tАвтор:
eagleДобавить свой ответ
Предмет:
Русский языкАвтор:
belleewcaОтветов:
Смотреть
Предмет:
МатематикаАвтор:
josefinapgbbОтветов:
Смотреть
Предмет:
ИсторияАвтор:
adriánzt9cОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
savanahyilhОтветов:
Смотреть