Question

Napisz program drukujący wszystkie liczby nie parzyste od 5 do 117 w Turbo Pascalu. Prosze o pomoc z góry dziekuje :)

Answer 1

program hotel;

uses crt;

var i :integer;

begin

clrscr;

for i := 5 to 117 do if i mod 2 <> 0 then Write(i,', ');

readln;

end.

Answer 2

@Nie słuchaj tego wyrzej, on sie nie zna ;pp

 

Program zadanie;
uses crt;
var i:integer;
begin
clrscr;
i:=5;
repeat
Write(i,', ');
inc(i,2);
until i=119;
readkey;
end.

 

 

zamiast inc(i, 2); możesz napisać i:=i+2;