Надо написать программу в паскале!

Дано число N. Напечатать нечетные натуральные числа меньше N.

Question

Информатика

Минай

10 марта, 15:29

Надо написать программу в паскале!

Дано число N. Напечатать нечетные натуральные числа меньше N.

+3

Ответы (2)

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

Федуся · Answer 1

Program ch;

var a:integer;

Begin

writeln ('Введите число n: ') ;

Readln (n) ;

For n:=n downto 1 do

writeln (n) ;

end.

Евдений · Answer 2

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 20) and (a[i]
writeln () ;

writeln () ;

write (a[i]:4) ;

end;

end.

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

Надо написать программу в паскале!

Дано число N. Напечатать нечетные натуральные числа меньше N.