Question

дано целое число n вывести первые n чисел арифметической прогрессии 1,4,7,10 и т.д.паскаль. Используя цикл for. ОЧЕНЬСРОЧНО!!!! Задача из PT4 ALoopFor16

Answer 1

var

i,n,number:integer;

begin

readln(n);

number:=1;

for i:=1 to n do

begin

writeln(number);

number:=number+3;

end;

end.