Question

PROGRAMOWANIE:

1. Napisz w PASCALU program, który wypisuje 10 kolejnych liczb parzystych, a następnie 10 liczb nieparzystych.

2. Napisz w PASCALU program, który wypisze liczby naturalne mniejsze od 1000 i podzielne przez 11.

W PASCALU.

POMOCY.

Answer 1

Dodaję kod źródłowy programu:

 

program parzyste_i_nieparzyste;
uses crt;
var a:real;
begin
clrscr;
writeln('Liczby parzyste:');
a:=0;
while a<21 do
begin
 writeln(a:0:0);
 a:=a+2;
end;
writeln('Liczby nieparzyste:');
a:=1;
while a<20 do
begin
 writeln(a:0:0);
 a:=a+2;
end;
write('Zadane.pl , 19.20.2011 r.');
readln;
end.