program progress;
var a1,d,an,i,a:integer;
begin
a1 := 0;
d := 7;
an := 98;
i := 2;
write(a1,' ');
while(a < an) do
a := a1 + d * (i-1);
inc(i);
write(a,' ');
end;
end.
Объяснение:
Так?
program progress;
var a1,d,an,i,a:integer;
begin
a1 := 0;
d := 7;
an := 98;
i := 2;
write(a1,' ');
while(a < an) do
begin
a := a1 + d * (i-1);
inc(i);
write(a,' ');
end;
end.
Объяснение:
Так?