Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Задача в Паскале. Выведите на печать любые 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.