**********ZADANIE 1**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 10 do
write('*');
readln;
end.
**********ZADANIE 2**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 15 do
writeln('*');
readln;
end.
**********ZADANIE 3**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 12 do
begin
writeln('*');
delay(1000);
end;
readln;
end.
**********ZADANIE 4**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 15 do
begin
textcolor(i);
writeln('Kamil');
end;
readln;
end.
**********ZADANIE 5**********
program nazwa;
uses crt;
var
i:byte;
imie:string;
begin
write('Jak masz na imię?'); readln(imie);
clrscr;
for i:=1 to 10 do
begin
writeln(imie);
end;
readln;
end.
**********ZADANIE 6**********
program nazwa;
uses crt;
var
i:byte;
max:real;
imie:string;
begin
write('Jak masz na imię?'); readln(imie);
write('Ile razy mam twoje imie wyświetlid?); readln(max);
clrscr;
for i:=1 to max do
begin
writeln(imie);
end;
readln;
end.
**********ZADANIE 7**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('To jest linijka nr', i);
end;
readln;
end.
**********ZADANIE 8**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=20 to 50 do
begin
writeln('To jest linijka nr', i);
end;
readln;
end.
**********ZADANIE 9**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=50 downto 20 do
begin
writeln('To jest linijka nr', i);
end;
readln;
end.
**********ZADANIE 10**********
program nazwa;
uses crt;
var
i:byte;
begin
clrscr;
for i:=10 downto 1 do
begin
writeln('Pozostało sekund', i);
delay(1000);
end;
readln;
end.
**********ZADANIE 11**********
program nazwa;
uses crt;
var
i:real;
begin
clrscr;
write('Podaj ile liczb mam wyświetlid'); readln(i);
for i:=1 to 1 do
begin
writeln(i ', ');
end;
readln;
end.
**********ZADANIE 12**********
program nazwa;
uses crt;
var
i,max,suma:real;
begin
clrscr;
write('Podaj ile licz mam zsumowad'); readln(max);
for i:=1 to max do
begin
suma:=suma+i;
writeln(suma , '+', i , '=', suma2);
suma2:=suma;
end;
readln;
end.
**********ZADANIE 13**********
program nazwa;
uses crt;
var
i,max,suma:real;
begin
clrscr;
write('Podaj ile licz mam zsumowad'); readln(max);
for i:=1 to max do
begin
suma:=suma*i;
writeln(suma , '+', i , '=', suma2);
suma2:=suma;
end;
readln;
end.
**********ZADANIE 14**********
program nazwa;
uses crt;
var
i:byte;
n,x:real;
begin
clrscr;
begin
writeln( Od jakiej liczby mam zacząd? ); readln(n);
writeln( Ile liczb mam sprawdzid? ); readln(x)
for i:=n to x do
begin
if i mod 2=0 then
write(n,  ,  );
end;
readln;
end.
**********ZADANIE 15**********
program nazwa;
uses crt;
var
i:byte;
n,x,srednia:real;
suma:integer;
begin
clrscr;
begin
writeln( Od jakiej liczby mam zacząd? ); readln(n);
writeln( Ile liczb mam sprawdzid? ); readln(x)
for i:=n to x do
begin
if i mod 2=1 then
suma:=suma+i;
end;
srednia:=suma/x;
write( Średnia liczb nieparzystych wynosi: , srednia);
readln;
end.
**********ZADANIE 16**********
program nazwa;
uses crt;
var
imie:string;
i:byte;
begin
imie:= Kamil ;
for i:=1 to length(imie) do
begin
writeln(imie[i]);
end;
readln;
end.
**********ZADANIE 17**********
program nazwa;
uses crt;
var
imie:string;
i:byte;
begin
write('Podaj swoje imię:');
readln(imie);
for i:=1 to length(imie) do
begin
textcolor(i);
writeln(imie[i]);
end;
readln;
end.
**********ZADANIE 18**********
program nazwa;
uses crt;
var
imie:string;
x:integer;
begin
write('Podaj swoje imie:');
readln(imie);
for x:=length(imie) downto 1 do
begin
write(imie[x]);
end;
readln;
end.
**********ZADANIE 19**********
program nazwa;
uses crt;
var
i,suma:real;
liczba:integer;
begin
clrscr;
write( Jakie chcesz sprawdzid wielokrotnosci ); readln(liczba);
for i:=1 to 10 do
begin
suma:=suma+liczba;
write(suma,  ,  );
end;
readln;
end.
program nazwa;
uses crt;
var
i,max,suma:real;
liczba:integer;
begin
clrscr;
write( Jakie chcesz sprawdzid wielokrotnosci ); readln(liczba);
write( Ile razy mam wyswietlic? ); readln(max);
for i:=1 to max do
begin
suma:=suma+liczba;
write(suma,  ,  );
end;
readln;
end.
**********ZADANIE 20**********
program nazwa;
uses crt;
var
i,liczba:byte;
suma:integer;
razem:real;
clrscr;
begin
for i:=1 to 10 do
begin
write( Podaj liczbe nr , i); readln(liczba);
suma:=suma+liczba;
end;
i:=10;
razem:=suma/i;
write( Średnia Twoich liczb wynosi: , razem);
end.
**********ZADANIE 21**********
program nazwa;
uses crt;
var
i,liczba:byte;
suma:integer;
razem:real;
clrscr;
begin
write( Ile potrzebujesz liczb do wyśredniowania?: ); readln(max);
for i:=1 to max do
begin
write( Podaj liczbe nr , i); readln(liczba);
suma:=suma+liczba;
end;
razem:=suma/max;
write( Średnia Twoich liczb wynosi: , razem);
end.
**********ZADANIE 22**********
program nazwa;
uses crt;
var
a, b,i,prawidlowe: byte;
suma,suma_usera:integer;
clrscr;
begin
for i:=1 to 10 do
begin
randomize;
a:=1+random(10);
b:=1+random(10);
textcolor(white);
write('Pytanie nr ' , i , '. Ile wynosi ', a , ' razy ' , b , ': ');readln(suma_usera);
suma:=a*b;
if suma=suma_usera then
begin
textcolor(green);
write('Prawidlowa odpowiedz!');
writeln('==============');
prawidlowa:=prawidlowa+1;
end;
if suma>suma_usera then
begin
textcolor(red);
write('Zla odpowiedz!');
writeln('==============');
end;
if sumabegin
textcolor(red);
write('Zla odpowiedz!');
writeln('==============');
end;
end;
if prawidlowe>5 then
begin
textcolor(green);
write('Gratulacje! Udzieliłeś ' , prawidlowe , ' prawidłowych odpowiedzi!');
end;
if prawidlowe<=5 then
textcolor(red);
write('Niestety! Udzieliłeś tylko ' , prawidlowe , ' prawidłowych odpowiedzi!');
readln;
end.
**********ZADANIE 23**********
program nazwa;
uses crt;
var
liczby:array[1..10] of integer;
i:byte
begin
for i:=1 to 10 do
write( Podaj liczbę , i); readln(liczby*i+);
end;
write( Podałeś następujące liczby:  );
for i:=1 to 10 do
write(liczby*i+ ,  ,  );
end;
readln.
end.
**********ZADANIE 24**********
program nazwa;
uses crt;
var
liczby:array[1..10] of integer;
i,n:byte
clrscr;
begin
for i:=1 to 10 do
begin
randomize;
n:=1+random(5);
n:=liczby[i];
end;
writeln( Losowo wybrane liczby to:  );
for i:=1 to 10 do
write(liczby*i+ ,   );
end;
readln;
end.
**********ZADANIE 25**********
program nazwa;
uses crt;
var
liczby: array[1..10] of integer;
i,najwieksza_liczba,suma,najwieksza_liczba_ktora,mniej_niz_zero,suma_nieparzystych_liczb:byte;
srednia:real;
begin
for i:=1 to 10 do
begin
writeln('Podaj ',i,' liczbę.'); readln(liczby*i+);
suma:=suma+liczby[i];
if i=1 then
begin
najwieksza_liczba:=liczby[i];
end;
if najwieksza_liczba begin
najwieksza_liczba:=liczby[i];
najwieksza_liczba_ktora:=i;
end;
if liczby[i]<0 then
begin
mniej_niz_zero:=mniej_niz_zero+1;
end;
if liczby[i] mod 2=1 then
begin
suma_nieparzystych_liczb:=suma_nieparzystych_liczb+liczby[i];
end;
 end;
srednia:=suma/10;
clrscr;
writeln('Podano ',mniej_niz_zero,' liczb mniejszych od 0.');
writeln('Średnia wszystkich liczb wynosi ',srednia:0:2,'.');
writeln('Suma liczb nieparzystych wynosi ',suma_nieparzystych_liczb,'.');
writeln('Najwieksza liczba to ',najwieksza_liczba,' i zostala podana jako ',najwieksza_liczba_ktora);
readln;
end.