Kamenárstvo Primont Servis

Domov O Nás Žulové obklady a dlažby Cintorínska architektúra Kontakt

zadania

uses crt;

var a,b,c,d:integer;

subor:text;

riadok:string;
begin

clrscr;

assign(subor,’hra.txt‘);

rewrite(subor);
repeat
writeln(‚Zadaj ci chces dat kamen-1, papier-2 alebo noznice-3′);

readln(a);

b:=random(3)+1;
if (a=1) and (b=1) then writeln(subor,’Obaja ste dali kamen a je to remiza‘);

if (a=2) and (b=2) then writeln(subor,’Obaja ste dali papier a je to remiza‘);

if (a=3) and (b=3) then writeln(subor,’Obaja ste dali noznice a je to remiza‘);

if (a=1) and (b=2) then writeln(subor,’Dal si kamen, pocitac dal papier a teda prehravas‘);

if (a=1) and (b=3) then writeln(subor,’Dal si kamen, pocitac dal noznice a teda si vyhral‘);

if (a=2) and (b=1) then writeln(subor,’Dal si papier, pocitac dal kamen a teda si vyhral‘);

if (a=2) and (b=3) then writeln(subor,’Dal si papier, pocitac dal noznice a teda si prehral‘);

if (a=3) and (b=1) then writeln(subor,’Dal si noznice, pocitac dal kamen a teda si prehral‘);

if (a=3) and (b=2) then writeln(subor,’Dal si noznice, pocitac dal papier a teda si vyhral‘);

append(subor);
if (a=1) and (b=1) then writeln(‚Obaja ste dali kamen a je to remiza‘);

if (a=2) and (b=2) then writeln(‚Obaja ste dali papier a je to remiza‘);

if (a=3) and (b=3) then writeln(‚Obaja ste dali noznice a je to remiza‘);

if (a=1) and (b=2) then writeln(‚Dal si kamen, pocitac dal papier a teda prehravas‘);

if (a=1) and (b=3) then writeln(‚Dal si kamen, pocitac dal noznice a teda si vyhral‘);

if (a=2) and (b=1) then writeln(‚Dal si papier, pocitac dal kamen a teda si vyhral‘);

if (a=2) and (b=3) then writeln(‚Dal si papier, pocitac dal noznice a teda si prehral‘);

if (a=3) and (b=1) then writeln(‚Dal si noznice, pocitac dal kamen a teda si prehral‘);

if (a=3) and (b=2) then writeln(‚Dal si noznice, pocitac dal papier a teda si vyhral‘);
writeln(‚Chces dalsiu hru? Ano-1, Nie-0‘);

readln(d);

clrscr;
until (d=0);
close(subor);

readln;

end.

uses crt;

var n,m,a,x,i,e:integer;
begin

clrscr;
writeln(‚Zadaj koniec intervalu, na ktorom chces hladat prvocisla‘ );

readln(n);

writeln(‚ Zadaj cislo, ktore urci pocet generovanych cisel z intervalu‘ );

readln(m);

randomize;
for i:=1 to m do begin
e:=0;

a:=random(n)+1;
for x:=1 to n do begin
if (a mod x=0) then e:=e+1;
end;
if (e=2) then writeln(‚Cislo ‚,a, ‚ je prvocislo‘)
else writeln(‚Cislo ‚,a,‘ nie je prvocislo‘ );
end;
readln;

end.

uses crt;

var cas:longint;

h,m,s,x:integer;

begin

clrscr;

repeat
writeln(‚Zadaj vstupny cas v sekundach‘);

readln(cas);

x:=cas;

s:=cas mod 60;

m:=cas div 60;

h:=m div 60;

m:=m mod 60;
if (m<10) and (s>10) then writeln(‚Premeneny cas je ‚,h,‘:0′,m,‘:‘,s);

if (s<10) and (m>10) then writeln(‚Premeneny cas je ‚,h,‘:‘,m,‘:0′,s);

if (m<10) and (s<10) then writeln(‚Premeneny cas je ‚,h,‘:0′,m,‘:0′,s);

if (m>10) and (s>10) then writeln(‚Premeneny cas je ‚,h,‘:‘,m,‘:‘,s);

until (x<0);

readln;

end.

uses crt;

var s:array[1..100] of integer;

i,n,a,b,c:integer;

begin

clrscr;

textcolor(white);

writeln(‚Zadaj pocet knih‘);

readln(n);

randomize;

for i:=1 to n do

S[i]:=random(50)+1;

repeat

for b:=1 to n do

for i:=1 to n-1 do

if s[i]>s[i+1] then begin a:=s[i]; s[i]:=s[i+1]; s[i+1]:=a end;

for i:=1 to n do

write(s[i],‘, ‚);

writeln;

writeln(‚Zadaj dalsie cislo, 0 ukonci pole‘);

readln(c);

n:=n+1;

s[n]:=c;

until c=0;

end.

uses crt;

var z:array[1..100] of integer;

r,s,i,b,max,min,maxsucet,sucet,znamka :integer;

begin

clrscr;

randomize;

writeln(‚zadajte pocet rozhodcov minimalne 3‘);

readln(r);

writeln(‚zadajte pocet sutaziacich‘);

readln(s);

maxsucet:=0;

for i:=1 to s do begin

sucet:=0;

min:=6;

max:=0;
writeln(‚sutaziaci c.‘,i);
for b:=1 to r do begin

znamka:=random(6)+1;

writeln(‚znamka od rozhodcu c.‘,b, ‚ je ‚,znamka);

if znamka > max then max:=znamka;

if znamka < min then min:=znamka;

sucet:=sucet+znamka;

end;
sucet:=sucet-min-max;

writeln(‚sucet bodov sutaziaceho bez min a max je‘,sucet);

if sucet > maxsucet then maxsucet:=sucet;

(z[i]):=sucet;

end;
if (z[i]) = maxsucet then writeln(‚vyral sutaziaci c.‘,i);
readln;

end.

uses crt;

var objekt:integer;

procedure stvorec;

var n,i,a,x:integer;

begin

repeat

writeln(‚Zadaj stranu stvorca‘ );

readln(n);

clrscr;

for i:=1 to n do begin

for a:=1 to n do

write(‚*‘);

writeln();

end;

readln;

writeln(‚Chces opakovat proceduru? Ano-1, Nie-0‘);

readln(x);

until (x=0);

end;

procedure pstvorec;

var a,i,n,x:integer;

begin

repeat

writeln(‚Zadaj stranu stvorca‘);

readln(n);

clrscr;

for i:=1 to n do begin

if (i=1) or (i=n) then

for a:=1 to n do write(‚*‘)

else begin

write(‚*‘);

for a:=2 to n-1 do write(‚ ‚);

write(‚*‘);

end;

writeln();

end;

readln;

writeln(‚Chces opakovat proceduru? Ano-1, Nie-0‘);

readln(x);

until (x=0);

end;
procedure trojuholnik;

var a,i,n,x:integer;

begin

repeat

writeln(‚Zadaj dlzku strany‘);

readln(n);

clrscr;

for i:=1 to n do begin

for a:=1 to i do write(‚*‘);

writeln();

end;

readln;

writeln(‚Chces opakovat proceduru? Ano-1 Nie-0‘);

readln(x);

until (x=0);

end;

begin

clrscr;

writeln(‚Vyber si co chces nakreslit stvorec – 1, prazdny stvorec – 2, trojuholnik – 3‘ );

readln(objekt);

if (objekt=1) then stvorec;

if (objekt=2) then pstvorec;

if (objekt=3) then trojuholnik;
readln;

end.

uses crt;

var riadok,y:string;

i,a,c:integer;

subor:text;
function otoc(text:string):string;

begin

assign(subor,’mail.txt‘);

reset(subor);
while not EoF(subor) do begin
readln(subor,riadok);
for i:=length(riadok) downto 1 do begin
if riadok[i]=‘.‘ then writeln;

write(riadok[i]);
end;

end;

end;
begin

clrscr;
write(otoc(riadok));
close(subor);

readln;

end.

uses crt;

var zena,mladsi,t,i,y:integer;

pohlavie,vek,n:string;

begin

clrscr;

zena:=0;

mladsi:=0;

repeat

writeln(‚zadajte rodne cislo studenta, pre ukoncenie zadavania stlacte 0‘);

readln(n);

pohlavie:=copy(n,3,1);

vek:=copy(n,1,2);

val(pohlavie,y,i);

val(vek,t,i);

if y > 4 then zena:=zena+1;

if (t < 19) and (t > 8) then mladsi:=mladsi+1;

until n = ‚0‘;

writeln(‚pocet dievcat v skupine: ‚,zena);

writeln(‚pocet ziakov mladsich ako 10 rokov: ‚,mladsi);

readln;

end.

uses crt;

var a,r,teleso,v:integer;

o,s,x:real;
begin

clrscr;

repeat

writeln(‚Vyber si teleso pre ktore chces vypocitat objem a povrch, Valec-1, Kuzel-2, Gula-3‘);

readln(teleso);

if (teleso=1) then begin

writeln(‚Zadaj polomer valca‘);

readln(r);

writeln(‚Zadaj vysku valca‘);

readln(v);

o:=pi*r*r*v;

s:=(2*pi*r*(r+v));

writeln(‚Objem valca je ‚,o:2:2, ‚ a jeho povrch je ‚,s:2:2);

end;

if (teleso=2) then begin

writeln(‚Zadaj polomer kuzela‘);

readln(r);

writeln(‚Zadaj vysku kuzela‘);

readln(v);

o:=pi*r*r*v;

o:=o/3;

x:=sqrt((r*r)+(v*v));

s:=(pi*r*r)+(pi*r*s);

writeln(‚Objem kuzela je ‚,o:2:2, ‚ a jeho povrch je ‚,s:2:2);

end;

if (teleso=3) then begin

writeln(‚Zadaj polomer gule‘);

readln(r);

o:=(4/3)*pi*r*r*r;

s:=4*pi*r*r;

writeln(‚Objem gule je ‚,o:2:2, ‚ a jej povrch je ‚,s:2:2);

end;
until keypressed;
readln;

end.

uses crt;

var S,SS:array[1..6] of integer;

cislo,pocet,i,a,opakovanie:integer;

begin

clrscr;

textcolor(white);

randomize;

pocet:=0;

writeln(‚Zadaj 6 cisel od 1-49′);

for i:=1 to 6 do begin

readln(cislo);

(S[i]):=cislo;

end;

for i:=1 to 6 do begin

(SS[i]):=random(49)+1;

opakovanie:=1;

repeat

for a:=1 to 6 do

if ((SS[i])=(SS[a])) and ((a)<>(i)) then begin (SS[i]):=random(49)+1;
opakovanie:=opakovanie-1 end;

opakovanie:=opakovanie+1;

until opakovanie=2;

end;

for i:=1 to 6 do write((SS[i]),‘, ‚);

for a:=1 to 6 do

for i:=1 to 6 do

if (SS[a])=(S[i]) then pocet:=pocet+1;

writeln(‚Uhadol si ‚,pocet,‘ cisel‘);

readln;

end.

uses crt;

var a,b,c,plat,pocet,suma,max,min:integer;

begin

clrscr;

min:=5000;

max:=0;

pocet:=0;

suma:=0;

repeat

writeln(‚Zadaj plat zamestnanca‘);

readln(plat);

pocet:=pocet+1;

suma:=suma+plat;

if (plat>max) then max:=plat;
if (plat0) then min:=plat;

until plat=0;

clrscr;

writeln(‚Firma ma ‚,(pocet-1),‘ zamestnancov‘);

writeln(‚Priemerny plat za mesiac je ‚,(suma/(pocet-1)):2:2);

writeln(‚Maximalny zarobok je ‚,max);

writeln(‚Minimalny zarobok je ‚,min);

readln;

end.

uses crt;

var subor:text;

riadok,max,min,more,nizina,pohorie,sucet:integer;

begin

clrscr;

assign(subor,’krajina.txt‘);

reset(subor);

max:=299;

min:=300;

more:=0;

pohorie:=0;

nizina:=0;

sucet:=0;

while not EoF (subor) do begin

readln(subor,riadok);

write(riadok,‘ , ‚);

if riadok > max then max:=riadok;

if (riadok < min) and (riadok <> 0) then min:=riadok;

if (riadok > 299) then pohorie:=pohorie+1;

if (riadok < 300) and (riadok > 0) then nizina:=nizina+1;

if (riadok = 0) then more:=more+1;

sucet:=sucet+1;

end;

close(subor);

writeln;

writeln(‚percentualne zastupenie krajiny:‘);

writeln(‚pohorie:‘,((pohorie*100)/sucet):2:2);

writeln(‚niziny:‘,((nizina*100)/sucet):2:2);

writeln(‚moria:‘,((more*100)/sucet):2:2);

writeln(‚?<>?<>?<>?<>?<>?<>?<>?‘);

writeln(‚najvyssie pohorie:‘,max);

writeln(‚najnizsia nizina:‘, min);

readln;

end.

uses crt;

var a:array[1..100] of integer;

n,max,min,i,k:integer;

begin clrscr;

writeln(‚zadaj pocet ziakov‘);

readln(n);

writeln(‚zadaj skoky ziakov‘);

max:=0; min:=10000; k:=0;

for i:=1 to n do begin

readln(a[i]);

if a[i]
if a[i]>max then max:=a[i];

end;

for i:=1 to n do if a[i]=max then k:=k+1;

writeln(‚najdlhsi skok= ‚,max,‘ bol skoceny ‚,k,‘ krat‘);

writeln(‚skocili ho ziaci s porad. cislom:‘);

for i:=1 to n do if a[i]=max then writeln(i);

readln;

end.

uses crt;

var x,y,farba,znak:integer;

begin

clrscr;
repeat

clrscr;

x:=random(80)+1;

y:=random(23)+1;

farba:=random(250)+1;

znak:=random(230)+1;

gotoxy(x,y);

textcolor(farba);

write(chr(znak));

delay(100);
until keypressed;

readln;

end.

uses crt;

var subor:text;

riadok:string;

pocet,veta,i,c,celkovo:integer;

begin

clrscr;

assign(subor,’telegram.txt‘);

reset(subor);

pocet:=0;

veta:=0;

c:=0;

while not eof (subor) do begin

readln(subor,riadok);

write(riadok);

c:=c+1;

for i:=1 to length(riadok) do begin

if riadok[i] = ‚ ‚ then pocet:=pocet+1;

if riadok[i] = ‚.‘ then veta:=veta+1;

end;
end;

close(subor);

celkovo:=c+pocet;

if veta < 10 then writeln(‚cena telegramu je: ‚,(0.6+(0.1*celkovo)):2:2,‘ eur‘);

if (veta > 10) and (veta < 20) then writeln(‚cena telegramu je: ‚,(1+(0.1*celkovo)):2:2,‘ eur‘);

if veta > 20 then writeln(‚cena telegramu je: ‚,(1.5+(0.1*celkovo)):2:2,‘ eur‘);
readln;

end.

uses crt;

var subor:text;

pocet,sucet,i,b,c,a:integer;

priemer:double;

riadok:string;

s:array[1..100] of integer;

begin

clrscr;

assign(subor,’data.txt‘);

reset(subor);

pocet:=0;

while not eof (subor) do begin

readln(subor,riadok);

val(riadok,a);

pocet:=pocet+1;
(s[pocet]):=a;

end;

close(subor);

for b:=1 to pocet do for i:=1 to (pocet-1) do

if s[i] > s[i+1] then begin
c:=s[i];s[i]:=s[i+1];s[i+1]:=c;
end;

sucet:=0;

for i:=1 to pocet do begin

write(s[i],‘ , ‚);

sucet:=sucet+(s[i]);

end;

priemer:=(sucet/pocet);

writeln(‚priemer znamok: ‚,priemer:2:2);

for i:=1 to pocet do if s[i] > priemer then writeln(‚znamka vacsia ako priemer: ‚,s[i]);

readln;

end.

uses crt;

var s:string;

i,p,zhoda,medzera:integer;

odpoved:char;

begin

clrscr;

textcolor(white);

repeat

writeln(‚Zadaj text na skusku, ci je palindrom‘);

readln(s);

repeat

medzera:=pos(‚ ‚,s);

delete(s,medzera,1);

until medzera=0;

s:=lowercase(s);

for i:=1 to length(s) do

begin

p:=length(s)-i+1;

if ((s[i])=(s[p])) then
zhoda:=zhoda+1;

end;

if zhoda=length(s) then writeln(‚Text je palindrom‘)

else writeln(‚Text nie je palindrom‘);

writeln(‚Chces dalsiu skusku?‘);

readln(odpoved);

until (odpoved=’n‘) or (odpoved=’N‘);

end.

uses crt;

var subor:text;

riadok:string;

i:integer;

hmotnost:char;

begin

clrscr;

assign(subor,’bmi.txt‘);

reset(subor);

while not eof (subor) do begin

readln(subor,riadok);

for i:=1 to length(riadok) do while (riadok[i] <> ‚;‘) do
hmotnost:=riadok[i];

end;

close(subor);

writeln(hmotnost);

readln;

end.

uses crt;

var a,b,i,c,d,e,f:integer;

begin

clrscr;

randomize;

e:=0;

f:=0;

for i:=1 to 10 do begin

a:=random(10)+1;

b:=random(10)+1;

c:=a*b;

writeln(a,’*‘,b,’=‘);

readln(d);

if (c=d) then begin writeln(‚Spravne‘);

e:=e+1;

end;

if (c<>d) then begin writeln(‚Nespravne‘);

f:=f+1;

end;

writeln();

end;
writeln(‚Spravne si vypocital ‚,e, ‚ prikladov a nespravne ‚,f, ‚ prikladov‘);

readln;

end.

uses crt;

var P: array[1..8] of integer;

n,i,a:integer;

begin

clrscr;

textcolor(white);

writeln(‚Zadaj cislo mensie ako 256‘);

readln(n);

if (n>255) then writeln(‚Cislo mensie ako 256‘);

readln(n);

i:=8;

if n=1 then writeln(1) else

if n<256 then begin

repeat

(P[i]):=n mod 2;

n:=n div 2;

i:=i-1;

until (n=0) or (n=1);

(P[i]):=n;

for a:=i to 8 do

write(P[a]);

end;

readln;

end.

uses crt;

var x,y,i,d:integer;

citatel,menovatel:real;

begin

clrscr;

writeln(‚zadajte citatela‘);

readln(x);

writeln(‚zadajte menovatela‘);

readln(y);

writeln(‚vas zlomok: ‚,x,’/‘,y);

if x > y then begin

for i:=1 to y do begin

citatel:=x mod i;

menovatel:=y mod i;

if (citatel = 0) and (menovatel = 0) then d:=i;

end;

writeln(‚najvacsi spolocny menovatel: ‚,d);

writeln(‚vykrateny zlomok: ‚,(x/d):2:2,’/‘,(y/d):2:2);

end;

if x < y then begin

for i:=1 to x do begin

citatel:=x mod i;

menovatel:=y mod i;

if (citatel = 0) and (menovatel = 0) then d:=i;

end;

writeln(‚najvacsi spolocny menovatel: ‚,i);

writeln(‚vykrateny zlomok: ‚,x/d,’/‘,y/d);

end;

if y = x then writeln(‚vykrateny zlomok je 1/1 teda 1‘);

readln;

end.

uses crt;

var a,n,pocet:integer;

begin

clrscr;

randomize;

a:=random(100)+1;

writeln(‚ake cislo si mysli pc od 1 po 100?‘);

pocet:=0;

repeat

pocet:=pocet+1;

readln(n);

if n < a then writeln(‚nespravne, pc si mysli vacsie‘);

if n > a then writeln(‚nespravne, pc si mysli mensie‘);

until n = a;

writeln(‚spravne, pocet pokusov:‘,pocet);

if pocet <= 5 then writeln(‚vyborne‘);

if (5 < pocet) and (pocet <= 10) then writeln(‚velmi dobre‘);

if (10 < pocet) and (pocet <= 15) then writeln(‚dobre‘);

if pocet > 15 then writeln(‚prilis vela pokusov‘);

readln;

end.

uses crt;

var rano,obed,vecer,i,n,r,p,v:integer;

priemer:real;

begin

clrscr;

writeln(‚zadajte pocet dni v mesiaci, v ktore sa merali teploty‘);

readln(n);
rano:=0;

obed:=0;

vecer:=0;
for i:=1 to n do begin

priemer:=0;

writeln(‚zadajte rannu teplotu‘);

readln(r);

writeln(‚zadajte poobednu teplotu‘);

readln(p);

writeln(‚zadajte vecernu teplotu‘);

readln(v);

rano:=rano+r;

obed:=obed+p;

vecer:=vecer+v;

priemer:= (r+p+v)/3;

writeln(‚priemerna teplota za ‚,i,‘ den bola ‚,priemer:2:2);

end;

writeln(‚priemerna teplota za vecere: ‚,vecer/i:2:2);

writeln(‚priemerna teplota za poobedia: ‚,obed/i:2:2);

writeln(‚priemerna teplota za rana: ‚,rano/i:2:2);

readln;

end.

uses crt;

var V,X,Z,Y:integer;

vyska:array[1..20] of integer;

begin

randomize;

clrscr;

for X:=1 to 20 do begin

writeln(‚Zadaj vysku stromu‘);

readln(v);

clrscr;

vyska[X]:=V;

end;

writeln(‚zadaj, ktoru vysku hladas‘);

readln(V);

clrscr;

for X:=1 to 20 do begin

if V=vyska[X] then Z:=X;

end;

if Z<>0 then writeln(‚strom dosiahol vysku ‚,V,‘ v roku ‚,Z)
else begin

for X:=1 to 19 do begin

if (vyska[X]<=V) and (vyska[X+1]>=V) then Y:=X

end;

writeln(‚strom prerastom vyzsku ‚,V,‘ medzi ‚,Y,‘. a ‚,Y+1,‘. rokom‘);

end;

readln();

end.

uses crt;

var s,ss,t:string;

x,dlzkas,poz,d:integer;

znak:char;

begin

clrscr;

textcolor(white);

writeln(‚Zadaj text na setric‘);

readln(s);

x:=1;

dlzkas:=length(s);

d:=dlzkas;

ss:=s;

poz:=1;

repeat

gotoxy(x,15);

x:=x+1;

if x=80-dlzkas then begin

t:=copy(ss,dlzkas,poz); delete(s,dlzkas,1);
dlzkas:=dlzkas-1; poz:=poz+1;

end;

write(s);

gotoxy(1,15);

write(t);

if dlzkas=0 then begin dlzkas:=d; poz:=1 end;

if x=80 then begin x:=2; t:=s; s:=ss end;

delay(100);

clrscr;

until keypressed;

end.

uses crt;

var subor:text;

slovo,riadok,ria,preklad:string;

a:integer;

begin

clrscr;

assign(subor,’slovnik.txt‘);

reset(subor);

writeln(‚Zadaj slovo, ktore chces prelozit‘);

readln(slovo);
while not EoF(subor) do begin

readln(subor,riadok);

if (slovo=riadok) then begin

a:=1;

readln(subor,ria);

writeln(ria);

end;

end;

if (a<>1) then begin

append(subor);

writeln(subor,slovo);

clrscr;

writeln(‚Tebou zadane slovo sa nenachadza v slovniku‘);

writeln(‚Napis jeho preklad do anglictiny‘);

readln(preklad);

writeln(subor,preklad);

end;
close(subor);

readln;

end.

uses crt;

var a,b,c,d:integer;

begin

clrscr;

d:=0;

writeln(‚Zadaj hmotnost batoha‘);

readln(a);

repeat

writeln(‚Zadaj hmotnost predmetu‘);

readln(b);

d:=d+b;

c:=c+1;

until (b=0) or (d>a);

writeln(‚Beriete si so sebou ‚,(c-1),‘ veci‘);

readln;

end.

uses crt;

var vklad:real;

a,b,i,e,d,c,x,y:integer;

begin

clrscr;

randomize;

writeln(‚Zadaj svoj vklad‘);

readln(vklad);

for i:=1 to 5 do begin

readln;

clrscr;

writeln(‚Tvoj zostatok je ‚,vklad:2:2);

writeln(‚Pokus cislo ‚,i);

repeat

a:=random(6)+1;

gotoxy(20,6);

write(a);

b:=random(6)+1;

gotoxy(22,6);

write(b);

c:=random(6)+1;

gotoxy(24,6);

write(c);
delay(200);

until keypressed;

readln;
if (a=b) and (b=c) and (a=c) then vklad:=vklad*3;

if (a=b) or (b=c) or (a=c) then vklad:=vklad*2;

if (a<>b) and (b<>c) and (a<>c) then vklad:=vklad*0.5;

end;
clrscr;

writeln(‚Tvoj finalny zostatok je ‚,vklad:2:2);
readln;

end.

uses crt;

var f:text;

s,poradie:string;

skoky,a:integer;

begin

clrscr;

textcolor(white);

assign(f,’skoky.txt‘);

reset(f);

while not eof(f) do begin

readln(f,s);

a:=a+1;

end;

close(f);

writeln(‚Sutaze sa zucastnilo ‚,a,‘ sutaziaciach‘);

reset(f);

while not eof(f) do begin

skoky:=0;

readln(f,s);

a:=pos(‚ ‚,s);

poradie:=copy(s,1,a-1);

repeat

delete(s,a,1);

a:=pos(‚ ‚,s);

skoky:=skoky+1;

until a=0;

write(poradie,‘. skokan mal ‚,(skoky-1),‘ skokov‘);

writeln;

end;

close(f);

readln;

end.

uses crt;

var subor:text;

riadok,max:string;

i:integer;

vklad,a:real;

begin

clrscr;

assign(subor,’urok.txt‘);

reset(subor);

max:=’0′;

while not eof(subor) do begin

readln(subor,riadok);

if riadok>max then max:=riadok;

end;

writeln(‚Najlepsia urokova miera je ‚,max);

writeln(‚Zadaj vklad‘);

readln(vklad);

val(max,a);
for i:=1 to 10 do begin

vklad:=vklad*a;

writeln(vklad:2:2);

end;

close(subor);

readln;

end.

the end