//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.
Пример: Введите натуральное число: 13054000230 Количество нулей в записи числа равно 5
2. Современное решение
//PascalABC.Net 3.0, сборка 1064 begin var s:=ReadString('Введите натуральное число: '); Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count) end.
Пример: Введите натуральное число: 13054000230 Количество нулей в записи числа равно 5
Program SumAndMul;
Uses Crt;
var a:array[1..10] of real;
i:integer;
sum,mul:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите -', i,' число:' );
readln(a[i]);
end;
sum:=0;mul:=1;
for i:=1 to 10 do
begin
if (a[i]>0) then sum:=sum+a[i];
if (a[i]<0 ) then mul:=mul*a[i];
end;
writeln('Сумма положительных элементов: ',sum);
writeln('Произведение отрицательных элементов: ',mul);
readkey;
end.