1)40 бит
2) 8 бит
3)2 мигабайта
4) 0.008 бита
В навигации,авиации, картографии,в погоде. В логистике, радары,ввс и т.д
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа
begin
writeln('Вы ввели не трехзначное число попробуйте еще раз');
readln (x);
end;
for i:=1 to 3 do // число делиться на цифры
begin
y:=y+x mod 10;
x:=x div 10;
end;
writeln('Сумма цифр данного числа ',y);
<span>end.</span>
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.