Считаем, сколько пройдёт минут после 2N+1 урока:
(2N + 1)*45 - число минут собственно на учёбу
N * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
Считаем, сколько пройдёт минут после 2N уроков:
2N*45 - число минут собственно на учёбу
(N - 1) * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
В общем случае, после M уроков (сравниваем ответы):
M*45 - число минут собственно на учёбу
(M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы
(M div 2) * 5 - число минут на короткие перерывы
Т.о., время T (в минутах) можно найти по формуле:
T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5
Если нужно привести к формату H:M, то
H = 9 + (T div 60)
M = T mod 60
Переведем числа в десятичную систему:
= 501
(F=15)
Отсюда К=502
Переведем в троичную
<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.
Маловато баллов за такую задачку.
Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
randomize;
for i:=1 to 16 do z[i]:=random(101);
write('Z=');
for i:=1 to 16 do write(z[i],' ');
writeln;
writeln;
p:=0;
s:=0;
for i:=1 to 16 do
if (i mod 2)<>0 then
begin
s:=s+z[i];
p:=p*z[i];
end;
writeln('P=',p);
writeln('S=',s);
writeln;
for i:=1 to 16 do k[i]:=z[i]*<span>exp(ln(i*z[i])/3);
</span>write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');<span>
max:=k[1];
for i:=1 to 16 do
if k[i]>max then max:=k[i];
writeln;
writeln('max=',max:0:0);
for i:=1 to 16 do
if k[i]=max then k[i]:=0;
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
End.</span>
Упаковка-зелёная
Марка "моя семья"
Вкус-яблочный
Цвет сока- зелёный, есть мякоть
:-)