Question

Scrieți programul Pascal ce afișează la ecran numerele impare de la 1 la 50.

Answer 1

Program P1;

var A:array[1..50] of real;

      i:integer;

begin

For i:=1 to 50 do read (A[i]);

for i : =1 to 50 do if odd(i) then write (i);

end.