Pascal
Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98
Программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98
Pascal
Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98
Программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98
Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98
Программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program arithmeticProgression;
var
a1, d, an, n, i, currentTerm: Integer;
begin
a1 := 0; // первый член
d := 7; // разность
an := 98; // n-й член
n := (an - a1) div d + 1; // количество членов
currentTerm := a1;
for i := 1 to n do
begin
Write(currentTerm, ' '); // выводим текущий член
currentTerm := currentTerm + d; // переходим к следующему члену
end;
end.