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

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

Ответ оставил Гость

Var
i,k,a1,d:integer;
     begin 
          Writeln(Введите количество, a1,  d)   ;
          readln(k,a1,d);     
                   for i:=1 to k do         
                        writeln(a-,i, = ,a1+(i-1)*d);
end.