Предмет:
ИнформатикаАвтор:
desireeАвтор:
emmaleeАвтор:
sidney30Автор:
anabellamogoАвтор:
rosa42просто
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.
Автор:
Úrsula1wzvДобавить свой ответ
Предмет:
МатематикаАвтор:
amyadjqhОтветов:
Смотреть
Предмет:
ПсихологияАвтор:
matiasОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
shea21Ответов:
Смотреть