Určite pri
zadanom čase, aký uhol zvierajú hodinové ručičky.
program pr_26;
uses CRT;
const dielik=6;
var h,m,d,p,stupne:integer;

begin
Clrscr;
writeln('Zadaj cas:');
writeln('hodiny:');
readln(h);
writeln('minuty');
readln(m);
d:=m div 12; {posun hodinovej rucicky}
p:=(h*5+d)-m; {celkovy pocet dielikov medzi rucickami}
stupne:=p*dielik; {prevod dielikov na stupne}
if stupne>180 then stupne:=360-stupne;
writeln;
writeln('Rucicky zvieraju uhol ',stupne,' stupnov');
readln;
end.

27, Zostavte program na zistenie ciferného počtu ľubovolného čísla.
program ciferny_sucet;
var sucet, cislo, cislica: integer;
begin
writeln('zadaj cislo: ');
readln(cislo);
sucet:=0;
while cislo<>0 do
begin
cislica:=cislo mod 10;
sucet:=sucet + cislica;
cislo:=cislo div 10;
end;
writeln('ciferny sucet cisla je: ',sucet);
readln
end.

28, Preveďte čas v sekundách na týždne, dni, hodiny, minúty a sekundy.
program pr_28;
uses CRT;
var tyzdne, dni, hodiny, minuty, sekundy, p1,p2,p3:longint;

begin
ClrScr;
writeln('Zadaj cas v sekundach');
readln(sekundy);
tyzdne:=sekundy div 604800;
p1:=sekundy mod 604800;
dni:=p1 div 86400;
p2:=p1 mod 86400;
hodiny:=p2 div 3600;
p3:=p2 mod 3600;
minuty:=p3 div 60;
sekundy:=p3 mod 60;
writeln('Vysledok: ',tyzdne,' tyzdnov ',dni,' dni ',hodiny,' hodin ',minuty,' minut a ',sekundy,' sekund');
readln;
end.

29, Zostavte program na zistenie najväčšieho prvku matice M x N!
program pr_29;
uses CRT;
var m,n,i,j,max:integer;
a:array[1..20,1..20] of integer;
begin
ClrScr;
writeln('Zadaj pocet riadkov matice');
readln(m);
writeln('Zadaj pocet stlpcov matice');
readln(n);
writeln('Zadavaj prvky matice');
writeln;
max:=0;
for i:=1 to m do
for j:=1 to n do begin
writeln('Prvok v ',i,'. riadku a ',j,'. stlpci');
readln(a[i,j]);
if a[i,j]>max then max:=a[i,j];
end;
Clrscr;
writeln('Matica:');
writeln;
for i:=1 to m do begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
writeln;
writeln('Najvacsi prvok matice je ',max);
readln;
end.

30, V jednej stanici metra sa križujú dve linky. Prvá má interval 2 min. 40 sek., druhá 3
min. 50 sek. O 10.00 hod. prišli obe súpravy súčastne. Zistite čas prejazdu liniek
v tejto stanici od 10.00 hod. Do 18.00 hod. toho istého dňa.
program pr_30;
uses CRT;
const prva=160; {interval prvej linky v sekundach}
druha=230; {interval druhej linky v sekundach}
var ph,pm,ps,p1,p2,dh,dm,ds,d1,d2,a,b:longint;

begin
ClrScr;
writeln('Casy :');
ph:=10;
pm:=0;
ps:=0;
p1:=ph*3600;
a:=0;
while ph<18 do begin
p1:=p1+prva;
a:=a+1;
ph:=p1 div 3600;
p2:=p1 mod 3600;
pm:=p2 div 60;
ps:=p2 mod 60;
if (a mod 23)=0 then writeln(ph,':',pm,':',ps);
end;

writeln('Casy druhej linky metra:');
dh:=10;
dm:=0;
ds:=0;
d1:=dh*3600;
b:=0;
while dh<18 do begin
d1:=d1+druha;
b:=b+1;
dh:=d1 div 3600;
d2:=d1 mod 3600;
dm:=d2 div 60;
ds:=d2 mod 60;
if (b mod 16)=0 then writeln(dh,':',dm,':',ds);

end;






readln;
end.