program ginir;
uses crt,dos;
var ch,min,sik,ms ,c : word;
a,s,b,sek : real;
begin
clrscr;
gettime(ch,min,sik,ms);;
b:=1028
for c := 1 to 10 do
begin
a := (ch*sek)/(min*ms);
s :=round(frac(a)*10);
writeln(s:2:0);
b :=b/2;
sek:=(sek*b)/round((1+b)/3);
end;
readln;
end.Добавлено (11.11.12, 15:34)
---------------------------------------------
или
program ginir;
uses crt,dos;
var ch,min,sik,ms ,c : word;
a,s,b,sek : real;
ss,cc : string;
begin
clrscr;
gettime(ch,min,sik,ms);
b:=1028;
sek:=sik;ss:='числа ';
for c := 1 to 10 do
begin
a := (ch*sek)/(min*ms);
s :=round(frac(a)*10);
str (s:2:0,cc);
ss:=ss+cc;
b :=1028/2;
sek:=(sek*b)/round((1+b)/3);
end;
writeln(ss);
readln;
end.
