просто
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.
В данном случае носителем информации является берестяная грамота.
Ответ:
8519142
Объяснение:
Рассмотрим вариант, когда "а" находится на 1-м месте. Тогда получим, что первую букву мы берем из 1, а остальные 5 из 17. Т.е. 17^5, а буква "а" может стоят на любой из 6 позиций, поэтому это выражение умножаем на 6
128 бит=16 байт
40960=5 кбайт
875байт=7000 бит
1,5кбайт=1536 байт
2мбайты=2048 кбайт
1,5мбайт=1572864 байт
1/16мбайт=9730785,28 бит