Var a: array[0..10] of integer;
i,n,sum: integer;
begin
sum:=1;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=n;
if n<>0 then
begin
sum:=sum*a[i];
end;
end;
for i:=0 to 9 do
begin
if a[i]<>0 then writeln('Значения: ',a[i]);
end;
writeln('Произведение: ',sum);
end.
Const n=10;
var ar:array[1..n] of integer;
a,p,i:integer;
begin
write('a = ');
readln(a);
write('p = ');
readln(p);
ar[1]:=a;
for i:=2 to n do ar[i]:=ar[i-1]+p;
for i:=1 to n do write(ar[i],' ');
end.
Пример:
a = 2
p = 5
2 7 12 17 22 27 32 37 42 47
Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
400000 ПИКСЕЛЕЙ НАВЕРНОЕ,НУ ТОГДА 400000 делим на 127,не делится,то есть делится но с остатком или я лунатик=)