Подготовка к олимпиаде Вася готовится к муниципальному этапу олимпиады по информатике, он хочет показать на нём хороший результат. Чтобы добиться этого, он разработал собственную систему тренировок — он каждый день решает задачи. Причём, он решает разное количество задач в будние и в выходные дни.
В будний день Вася решает X задач, в выходной день — Y задач.
Выходным Вася считает каждый K -й день, то есть дни с номерами K , 2 K , 3 K , … являются выходными.
Вася будет готовиться к олимпиаде ровно N дней и он хочет заранее знать, сколько всего задач он решит. Считается, что Вася решает задачи, начиная с дня с номером 1.
Требуется написать программу, которая по данным N , K , X , Y вычисляет количество решённых задач.
Входные данные В первой строке вводится натуральное число N ( 1 ⩽ N ⩽ 1000 ) - количество дней, которое Вася будет решать задачи для подготовки к олимпиаде.
Во второй строке вводится натуральное число K ( 1 ⩽ K ⩽ 1000 ) - номер первого выходного дня.
В третьей строке вводится натуральное число X ( 1 ⩽ X ⩽ 1000 ) - количество задач, которое Вася решает в будний день.
В четвёртой строке вводится натуральное число Y ( 1 ⩽ Y ⩽ 1000 ) - количество задач, которое Вася решает в выходной день.
Выходные данные Выведите единственное целое число — суммарное количество решённых задач.
Пример входные данные 3 2 10 15
выходные данные 35
Примечание В примере в первый и третий день Вася решит по 10 задач. Во второй день он решит 15 задач.
Const n=12; var a:array[1..n] of integer; i,j,t:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln end.
1. Словарь в компьютере или другом электронном устройстве. 2. Если переводить текст например с ангийского то некоторые слова надо переставлять и это иногда затрудняет, но всё же можно разобраться. 3. Словарь переводит отдельные слова в именительном падеже, а система перевода переводит слова, если встречаются выражения - переводит их не отдельными словами, а целиком. Кроме того, система перевода выставляет нужные падежи, правильно выставляет слова и старается подобрать набор слов наиболее литературно, но не всегда удачно.
var
a:array[1..n] of integer;
i,j,t:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.
Пример:
Исходный массив:
-6 -11 -1 -24 -15 23 14 -13 -5 3 17 -21
Отсортированный массив:
-24 -21 -15 -13 -11 -6 -5 -1 3 14 17 23
2. Если переводить текст например с ангийского то некоторые слова надо переставлять и это иногда затрудняет, но всё же можно разобраться.
3. Словарь переводит отдельные слова в именительном падеже, а система перевода переводит слова, если встречаются выражения - переводит их не отдельными словами, а целиком. Кроме того, система перевода выставляет нужные падежи, правильно выставляет слова и старается подобрать набор слов наиболее литературно, но не всегда удачно.