Например: а присвоить 23; а:=23;
var
a,s: integer;
<span>begin </span>
a:=10;
while a<=99 <span>do begin </span>
s:=s+a;
a+=1;
end;
writeln(s);
end.
просто
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.
Емкость флешки-гамбургера 7 гигабайт.