Много !
икт олимпиада
миша - обычный парень. он любит , смотрит сериалы про пони, верит в чудеса, и в то, что на лотереях можно разбогатеть.
каждую неделю миша покупает у аглаи петровны газету с заветной лотереей и пять билетиков с четырёхзначным числом на каждом из них, в надежде выиграть сегодня большой куш.
в газете "авантюрист", которую покупает миша, каждую неделю проводится лотерейный розыгрыш. в газете публикуется какое-то число (не обязательно четырёхзначное, но не более), а в продажу поступают лотерейные билетики. выигрывает тот лотерейный билетик, который будет удовлетворять следующим условиям:
если друг за другом по невозрастанию записать сумму первых двух и последних двух чисел лотерейного билетика, то получается опубликованное в газете на этой неделе число.
число на билетике является максимальынм среди всех подобных чисел на лотерейных билетиках.
миша так давно увлекается этим, что наладил все контакты и знает, какие билеты есть во всех лотерейных киосках в округе. но миша до сих пор не умеет быстро высчитывать абсолютное выигрышное значение. поэтому попросил вас создать алгоритм, который выдавал бы номер счастливого билетика по числу в газете.
формат ввода
в единственной строке вводится число 0 ≤ h < 1 - число, записанное в газете на этой неделе.
формат вывода
выведите единственное число - номер выигрышного билетика этой недели. если такого не существует- выведите 0.
пример
ввод вывод
1412
9593
SUM := K * SUM;
writeln('Площадь, которую уберут комбайны за ', K, ' = ', SUM);
Замени K, на Days
Программа
var
K, B, A, D, Z, S, SUM, Days: integer;
begin
//write('Введите количество дней для расчета: ');
//readln(Days);
write('Введите количество комбайнов K: ');
readln(K);
write('Введите производительность комбайна K: ');
readln(A);
write('Введите количество комбайнов D: ');
readln(D);
write('Введите производительность комбайна В: ');
readln(B);
write('Введите продолжительность рабочего дня комбайнов: ');
readln(Z);
write('Введите время технического обслуживания: ');
readln(S);
SUM := ((K * A) * (Z - S)) + ((D * B) * (Z - S));
SUM := K * SUM;
writeln('Площадь, которую уберут комбайны за ', K, ' = ', SUM);
readln;
end.