Question

Pascal Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98 Программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98

Answer 1

Ответ:

program progress;

var a1,d,an,i,a:integer;

begin

 a1 := 0;

 d := 7;

 an := 98;

 i := 2;

 write(a1,' ');

 while(a < an) do

 begin

   a := a1 + d * (i-1);

   inc(i);

   write(a,' ');

 end;

 

end.

Объяснение:

Так?

Answer 2

Вот программа на языке Pascal, которая выводит элементы арифметической прогрессии:

pascalCopy code
program ArithmeticProgression;

const
  a1 = 0; // первый элемент
  d = 7; // разность

var
  an: integer; // последний элемент
  i, n: integer;

begin
  an := 98; // заданный последний элемент
  n := (an - a1) div d + 1; // количество элементов

  for i := 0 to n - 1 do
    write(a1 + i * d, ' ');

  writeln;
end.

Программа выведет следующий результат: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98.