K = int(input())
m = int(input())
n = int(input())
if n<=k:
t = 2*m
elif n*2 % k==0:
t = m*(n*2 // k)
else:
t = m*(1+(n*2 // k))
print(t)
Пример:
2
1
3
3
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Собака=class
public
procedure Голос;
begin
Writeln('Гав!')
end;
end;
// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.
В основе работы практически с любой операционной системой (далее ОС) лежит умение управляться с окнами. Они представляют собой прямоугольную область экрана, где отображается та или иная информация. Окна можно открывать, закрывать, а также сворачивать, разворачивать, изменять их размеры. В открытом виде они могут занимать как весь экран, так и совсем небольшую его область. Если окошки свернуты, они будут отображены в панели задач в виде кнопок: нажмите нужную вам, все вновь развернется. Существует четыре типа окон: 1) программные – в них работают все загруженные в память ОС программы и приложения; 2) окна дисков и папок, которые помогают увидеть всю файловую структуру на дисках; 3) вторичные – это окна, где отображаются созданные в программах документы; 4) диалоговые окна. Именно о них, называемых также окнами запросов, и пойдет далее речь. Итак, появляются они в процессе работы с ОС и ее приложениями и располагаются поверх остальных окон на вашем экране. Они содержат в себе запрос информации, интересующей пользователя, или подтверждают его действия. Диалоговое окно нельзя изменить в размерах или свернуть, его можно только закрыть. Оно может закрываться автоматически после того, как даст ответ на запрос, или в принудительном порядке, то есть одним щелчком на кнопке закрытия. Чтобы ответить на запрос в полной мере, окна обладают самыми различными кнопками и полями.
200 символов в минуту * 5 минут = 1000 символов, которые занимают 375 байт, или 375*8=3000 бит. Значит, каждый символ занимает 3000\1000=3 бита, а размер алфавита - 2^3=8 символов.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.