Он помогает бухгалтерам и вообще разным профессиям
<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
Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................
Ответ:
4
Объяснение:
Надо найти V2/V1.
x - кол-во символов. По условию x1=x2=x.
V2=x*16;
V1=x*4
Делим уравнения и получаем: V2/V1=4