Kód: Vybrať všetko

program func1;
uses crt;
var a,b,f,x:integer;
function prvo(a:integer):integer;
var b,i:integer;
begin
for i:=1 to a do if a mod i=0 then
b:=b+1;
prvo:=b;
end;
begin
readln(a);
x:=prvo(a);
writeln(x);
readln;
end.

Kód: Vybrať všetko

program z30;
uses crt;
var n,i,j,k,l:integer;
    znak1,znak2:char;
begin
  clrscr;
  writeln('zadaj znak1 a znak2');
  readln(znak1,znak2);
  writeln('zadaj rozmer stvrca');
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do if (i mod 2 =0) then write(znak1) else write(znak2);
      writeln;
    end;
  readln;
end.