напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1.
PascalABC.NET
Ответы на вопрос
Ответил lingvini2013
0
var n, a: integer;
begin
readln(n);
for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)
end.
Ответил BobbyFresnel
0
===== PascalABC.NET =====
begin
SeqGen(ReadInteger, 1, p -> p + 3).Print
end.
Приложения:

Новые вопросы
Биология,
1 год назад
Физика,
1 год назад
Английский язык,
2 года назад
Математика,
7 лет назад
Физика,
7 лет назад