převod bytu
08.05.2009 16:02
program prevod_bytu;
uses crt;
var b:longint;
kb,mb:real;
begin
writeln ('zadej pocet bytu ');
read (b);
kb:=b/1024;
mb:=b/(1024*1024);
writeln ('kb je ',kb:1:5);
writeln ('mb je ',mb:1:5);
repeat until keypressed;
end.