Grupa A
Zadanie 1
Program silnia;
Var a, n : longint;
Begin
Clrscr;
Writeln(`wpisz wartosc n: `);
Readln(n);
a:=1;
for n=1 to n do
a:=a*n;
writeln(`wynik:', a);
readkey;
end.
Zadanie 3
Program;
Uses crt;
Var a, c : integer;
Begin
for c:=1 to 5 do
Begin
For a:=1 to 5 do
if a=c then write(`A')
else write(`*');
writeln;
End;
Readkey;
End.
Grupa B
Zadanie 2
Program;
Uses crt;
Var a, c : integer;
Begin
For c:=1 to 3 do
Begin
For a:=1 to 5 do
If a=2 then write(`*')
Else write(`*');
Writeln;
End;
Readkey;
End.
Zadanie 4
Program;
Uses crt;
Var b, c : real;
Begin
For b:=1 to 100 do
Begin
c:=b then writeln(b);
end;
readkey;
end.
Grupa C
Zadanie 3
Program;
Uses crt;
Var a, b : integer;
Begin
For a:=1 to 6 do
Begin
For b:=1 to a do
Write(`*');
Writeln;
End;
Readkey;
End.
Zadanie 1
Program;
Uses crt;
Var i, x, n, s : longint;
Begin
Clrscr;
Writeln(`wpisz wartosc x');
Readln(x);
Writeln(`wpisz do której potegi ma zostać podniesina liczba');
Readln(n);
s:=1;
for i:=1 to n do
s:= s*x;
writeln(`wynik', s);
readkey;
end.