// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.
Балкон
баскетбол
гимнастика
гитара
канал
посетить
почерк
расчет
расчетливый
спортсмен
справа
справедливый
чехол
шоссе
шофёр
Зачастую играм, особенно современным, не достаёт характеристик пользовательского компьютера: оперативной памяти, видеопамяти, тактовой частоты процессора и видеопроцессора, места на диске, нормального монитора и т. д. Вот и не запустишь, по-крайней мере, нормально не поиграешь в них на слабых машинах.
Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>