1) Выведите на экран последовательность первых 20-ти нечетных чисел (1,3,5,7 ...)

2) Выведите на экран первые 15 чисел последовательности: 1,4,7,10,13 ...

(Помоги, прошу!)

Question

Информатика

Изосим

10 марта, 18:35

1) Выведите на экран последовательность первых 20-ти нечетных чисел (1,3,5,7 ...)

2) Выведите на экран первые 15 чисел последовательности: 1,4,7,10,13 ...

(Помоги, прошу!)

+1

Ответы (1)

Знаете ответ на вопрос?

Игорь · Answer 1

Program gt;

var i, k:integer;

begin

k:=0;

for i:=1 to 1000 do

if (i mod 2=1) then begin

k:=k+1;

write (i,' ') ;

if (k=20) then exit;

end;

end.

2)

program gt;

var i, k:integer;

begin

k:=1;

write (k,' ') ;

for i:=1 to 14 do

begin

k:=k+3;

write (k,' ') ;

end;

end.

1) Выведите на экран последовательность первых 20-ти нечетных чисел (1,3,5,7 ...)2) Выведите на экран первые 15 чисел последовательности: 1,4,7,10,13 ...(Помоги, прошу!)

1) Выведите на экран последовательность первых 20-ти нечетных чисел (1,3,5,7 ...)

2) Выведите на экран первые 15 чисел последовательности: 1,4,7,10,13 ...

(Помоги, прошу!)