Помогите пожалуйста!
Приложения:
Ответы на вопрос
Ответил Аноним
0
Программа может выглядеть так:
program Progress;
uses Crt;
const n = 5;
d = 3;
var a: integer;
i: integer;
begin
ClrScr;
a:=9;
for i:=1 to n do
begin
begin
Write ('i=',i, '':5,'a',i,'=',a);
a:=a+d
end;
WriteLn;
end;
ReadLn;
end.
program Progress;
uses Crt;
const n = 5;
d = 3;
var a: integer;
i: integer;
begin
ClrScr;
a:=9;
for i:=1 to n do
begin
begin
Write ('i=',i, '':5,'a',i,'=',a);
a:=a+d
end;
WriteLn;
end;
ReadLn;
end.
Ответил dimmitrex2015
0
Большое спасибо)
Новые вопросы