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

Задача в Паскале. Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением a .
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы