Задача в паскале абс{ввести с клавиатуры a - первое число арифметической прогресии и d - разность арифм. прогрессии и n - число членов прогрессии вывести на экран n первых членов прогрессии например a=4d=2n=54 6 8 10 12 14}
Задача в паскале абс
{ввести с клавиатуры a - первое число арифметической прогресии и d - разность арифм. прогрессии и n - число членов прогрессии вывести на экран n первых членов прогрессии например a=4
d=2
n=5
4 6 8 10 12 14}
Гость
Ответ(ы) на вопрос:
Гостьvar
a, d: real;
i, n: integer;
begin
write('Введите значение первого члена прогрессии, a=');
readln(a);
write('Введите значение разности прогрессии, d=');
readln(d);
write('Введите количество членов прогрессии, n=');
readln(n);
writeln('Значения членов прогрессии:');
for i := 1 to n do
write(a + d * (i - 1), ' ')
end.
Тестовое решение:
Введите значение первого члена прогрессии, a=4
Введите значение разности прогрессии, d=2
Введите количество членов прогрессии, n=6
Значения членов прогрессии:
4 6 8 10 12 14
Не нашли ответ?
Похожие вопросы