<em><u>1. "Школьное" решение</u></em>
//PascalABC.Net 3.0, сборка 1064
var
s:string;
i,k:integer;
begin
Write('Введите натуральное число: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]='0' then Inc(k);
Writeln('Количество нулей в записи числа равно ',k)
end.
<em><u>Пример:</u></em>
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5
<em><u>2. Современное решение</u></em>
//PascalABC.Net 3.0, сборка 1064
begin
var s:=ReadString('Введите натуральное число: ');
Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count)
end.
<em><u>Пример:</u></em>
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5
Ответ:
Системное ПО: ОП-операционная система. Windows, Linux, Mac OS
Прикладное ПО: My Photo Books - средство, предназначенное для создания красивых цифровых фотоальбомов. Adobe Photoshop
Инструментальное ПО: Paint.NET
Объяснение:
Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
Идет направо – песнь заводит,
Налево - сказку говорит,
Там чудеса: там леший бродит,
Русалка на ветвях сидит…
(А. С. Пушкин)
Соавтор
собака
совесть
согнуть
содержание
соединить
созвать
сокол
солдат
сом
сон
соня
сообща
сопеть
сосед
сотня
соус
сохнуть
сочинять
союз
соя