<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
Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>
