Надо написать программу в паскале! дано число n. напечатать нечетные натуральные числа меньше n.

120

254

Посмотреть ответы 3

Ответы на вопрос:

tsisarmaria

Информатика

4,6(33 оценок)

Program ch; var a: integer; begin writeln('введите число n: '); readln(n); for n: =n downto 1 do writeln(n); end.

IvanDremin1

Информатика

4,5(70 оценок)

Const k=20; var a: array [1..k] of integer; i,n: integer; begin read(n); for i: =1 to k do begin a[i]: =random(k); write(a[i]: 4); - не обязательно, чисто, чтобы видеть какие числа сгенерировал рандом end; for i: =1 to k do if (a[i] mod 2< > 0) and (a[i]< n) then begin writeln(); writeln(); write(a[i]: 4); end; end.