Предмет: Информатика,
автор: Maxonchik94
дано целое число n вывести первые n чисел арифметической прогрессии 1,4,7,10 и т.д.паскаль. Используя цикл for. ОЧЕНЬСРОЧНО!!!! Задача из PT4 ALoopFor16
Ответы
Автор ответа:
1
Ответ:
program test;
var i, n: integer;
begin
read(n);
for i := 1 to n do write(i*3-2,' ')
end.
Автор ответа:
2
Ответ:
Объяснение:
Запишем формулу для нахождения n-го члена арифметической прогрессии:
Код программы:
Program Arifmeticheskaya;
Var i, n, a: integer;
Begin
Writeln('Введите n:');
Read(n);
a:=1;
for i:=0 to n-1 do
begin
a:=1+3*i;
Write(a, ' ');
end;
Readln;
End.
Приложения:

Похожие вопросы
Предмет: Английский язык,
автор: Sori555
Предмет: Русский язык,
автор: Аноним
Предмет: Окружающий мир,
автор: Aлёна14
Предмет: Математика,
автор: yusifilqarov
Предмет: Математика,
автор: соня1586