Question

Задача в Паскале. Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением a .

Answer 1

program ap;

var a,d,k,i:integer;

begin
write('Введите первый член арифметической прогрессии: ');
readln(a);
write('Введите разность арифметической прогрессии: ');
readln(d);
write('Введите величину K: ');
readln(k);

writeln('Ниже выведены ',k,' чисел заданной арифметической прогрессии');
for i:=1 to k do
begin
  write(a,' ');
  a:=a+d;
end;

end.

Answer 2

var a,d,c,i:integer; begin write('Введите первый член арифметической прогрессии: '); readln(a); write('Введите разность арифметической прогрессии: '); readln(d); write('Введите количество чисел ар.прогрессии: '); readln(c); writeln('Ответ'); for i:=1 to с do begin   write(a,' ');   a:=a+d*(i-1); end; end.