Var a,b,c,d:integer;
begin
b:=0;
randomize;
a:= random(1000);
while b<>10 do
begin
writeln (a);
b:=b+1;
end;
<span>end.</span>
1)джойстик
2)?
3)процессор
4)принтер
5)системный блок
6)системный блок
7)видеокарта
8)enter
9)цветной принтер
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