program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>
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
Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
988-принятие христианства на Руси
1147-первое упонминанеи о летописи в Москве
1492-открытие Колумбом Америки
1895-открытие радиосвязи
1941-начало ВОВ
1946-создание первого компьютера
1951-создание первого отечественного компьютера
1957-запуск первогоискусственного спутника земли
1961-первый полёт человека в космос