Var C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
<span>end.
Сам такое недавно делал, только на КуМИР'е)</span>
Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>
<span>Вычислительные таблицы:
1 Программа Excel высчитывать данные в таблице
2 Базы данных, Eccess, 1C, и тд</span>
#9:
bool res = (A % 2 != 0 || B % 2 != 0);
#10:
bool res = (A % 2 != 0 && B % 2 == 0 || A % 2 == 0 && B % 2 != 0);
#11:
bool res = (A % 2 == B % 2);
#12:
bool res = (A >= 0 && B >= 0 && C >= 0);
#13:
bool res = (A >= 0 || B >= 0 || C >= 0);
#14:
bool res = (A >= 0 && B <0 && C < 0 || A < 0 && B >= 0 && C < 0 || A < 0 && B < 0 && C >= 0);
#15:
bool res = (A >= 0 && B >= 0 && C < 0 || A >= 0 && B < 0 && C >= 0 || A < 0 && B >= 0 && C >= 0);
#16:
bool res = (A % 2 == 0 && A % 10 != 0 && A % 100 == 0);
#17:
bool res = (A % 2 != 0 && A % 100 != 0 && A % 1000 == 0);
#18:
bool res = (A == B || A == C || B == C);
#19:
bool res = (A + B == 0 || A + C == 0 || B + C == 0);