просто
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.
Var s,p,a,b: integer;
begin
readln(s,p);
a:=round((s+sqrt(s*s-4*p))/2);
b:=s-a;
writeln(a,' ',b);
end.
Пример:
73 1200
<span>48 25</span>
import random
def numbers(s):
mas = [random.randint(1, 15) for i in range(s)]
print(mas)
print("{} елементов имеют максимальное значение".format(mas.count(max(mas))))
numbers(25)
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
s:=s.Replace('ДЕТЕКТИВ','РОМАН'); s.Println
end.
<u>Примеры</u>
> ДЕТЕКТИВ БЕЗ ПОГОНИ - ЭТО НЕ ДЕТЕКТИВ
РОМАН БЕЗ ПОГОНИ - ЭТО НЕ РОМАН
> НЕ МОГУ ЗАСНУТЬ БЕЗ ДЕТЕКТИВА
НЕ МОГУ ЗАСНУТЬ БЕЗ РОМАНА