Много ! икт олимпиада миша - обычный парень. он любит , смотрит сериалы про пони, верит в чудеса, и в то, что на лотереях можно разбогатеть. каждую неделю миша покупает у аглаи петровны газету с заветной лотереей и пять билетиков с четырёхзначным числом на каждом из них, в надежде выиграть сегодня большой куш. в газете "авантюрист", которую покупает миша, каждую неделю проводится лотерейный розыгрыш. в газете публикуется какое-то число (не обязательно четырёхзначное, но не более), а в продажу поступают лотерейные билетики. выигрывает тот лотерейный билетик, который будет удовлетворять следующим условиям: если друг за другом по невозрастанию записать сумму первых двух и последних двух чисел лотерейного билетика, то получается опубликованное в газете на этой неделе число. число на билетике является максимальынм среди всех подобных чисел на лотерейных билетиках. миша так давно увлекается этим, что наладил все контакты и знает, какие билеты есть во всех лотерейных киосках в округе. но миша до сих пор не умеет быстро высчитывать абсолютное выигрышное значение. поэтому попросил вас создать алгоритм, который выдавал бы номер счастливого билетика по числу в газете. формат ввода в единственной строке вводится число 0 ≤ h < 1 - число, записанное в газете на этой неделе. формат вывода выведите единственное число - номер выигрышного билетика этой недели. если такого не существует- выведите 0. пример ввод вывод 1412 9593
Ответы
Program Project1;//кількість днів я взяв за N а площу за ploschad var A,B,Z,S,N, ploschad:real; K,D:integer;begin writeln('vvedit kilkist kombainov tupy K ta proizvoditelnost A'); readln(K,A); writeln('vvedit kilkist kombainov tupy D ta proizvoditelnost B'); readln(D,B); writeln('vvedit prodolzitelnost robochego dnja Z ta vrema tex obslyzivannja S'); readln(Z,S); writeln('vvedit kolichestvo dney N'); readln(N); ploschad:=(k*a+b*d)*(z-s)*n; writeln('ploschad=',ploschad:8:2); readln;
end.
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
у меня сор по информатике у меня идет время аоаоа
Автор: ASRodichev
запишите наибольшее число х для которого истинно высказывание: не х >=50 и х-четное
Автор: muzaffarovich-Sergei1777
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.