Информатика, вопрос задал ggsher228 , 2 года назад

напишите программу которая находит первые 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.

Приложения:
Новые вопросы