SEM INF 22.9.2010

Zase tie dokonalé čísla...

    Dnes pokračovali v dokonalých číslach, ja som na hodine nebola, poznámky mám od spolužiaka. 

Úloha 1: Hľadanie dokonalých čísel v danom intervale

***

program dokoncisla;
uses crt;
var i,s,n,hh,dh:integer;
begin
  writeln('zadaj dolnu hranicu');
  readln(dh);
  writeln('zadaj hornu hranicu');
  readln(hh);
  for n:=dh to hh do begin
    s:=0;
    for i:=1 to trunc (n/2) do
      if n mod i=0 then s:=s+i;
    if s=n then writeln(n);
  end;
  writeln('Koniec');
  readln;
end.

***

Tento program je tu.
Tento program pracuje na podobnom princípe ako 2 z predošlej hodiny, ibaže ako posledný program ktorý hľadal dokonalé čísla do 10 000, tento ich hľadá v nami zadanom intervale.
Aplikáciu nájdete tu.

Úloha 2: Určenie časov v ktorých sa stretnú vlaky A a B
    Toto sa na hodine nestihlo.

Koniec hodiny.