Print("Введите n:")
n = int(input())
m = 0
for i in range(1,n):
m = m+45
if i % 2 == 1:
m = m+5
else:
m = m+15
m = m+45
print('%(h)d:%(min)02d' % {"h":9 + m // 60, "min":m % 60})
Пример:
<span>Введите n: 5
13:25</span>
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
.......................................................
делишь на два, остатки записываешь в обратном порядке
Смешно. S= x*y (площадь)
P=2x + 2y (периметр)
Program z1;
uses crt;
var n,m,kd,i,j,s: integer;
begin repeat write('n=');readln(n);
Write('m='); readln(m);
until (n<m);
for i:=n to m do
begin
kd:=0;
for j:=2to i div2do
if i mod j=0then inc(kd);
if kd=0then
begin
write(i,' ');inc(s);
end;
end;
writeln;
writeln('Всего ',s); end.