М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
katyasergienko2004
katyasergienko2004
18.12.2020 00:01 •  Информатика

Много !
икт олимпиада
миша - обычный парень. он любит , смотрит сериалы про пони, верит в чудеса, и в то, что на лотереях можно разбогатеть.

каждую неделю миша покупает у аглаи петровны газету с заветной лотереей и пять билетиков с четырёхзначным числом на каждом из них, в надежде выиграть сегодня большой куш.

в газете "авантюрист", которую покупает миша, каждую неделю проводится лотерейный розыгрыш. в газете публикуется какое-то число (не обязательно четырёхзначное, но не более), а в продажу поступают лотерейные билетики. выигрывает тот лотерейный билетик, который будет удовлетворять следующим условиям:

если друг за другом по невозрастанию записать сумму первых двух и последних двух чисел лотерейного билетика, то получается опубликованное в газете на этой неделе число.
число на билетике является максимальынм среди всех подобных чисел на лотерейных билетиках.
миша так давно увлекается этим, что наладил все контакты и знает, какие билеты есть во всех лотерейных киосках в округе. но миша до сих пор не умеет быстро высчитывать абсолютное выигрышное значение. поэтому попросил вас создать алгоритм, который выдавал бы номер счастливого билетика по числу в газете.

формат ввода
в единственной строке вводится число 0 ≤ h < 1 - число, записанное в газете на этой неделе.

формат вывода
выведите единственное число - номер выигрышного билетика этой недели. если такого не существует- выведите 0.

пример
ввод вывод
1412
9593

👇
Открыть все ответы
Ответ:
fariii046
fariii046
18.12.2020
Вообщем если количество дней вводится с клавиатуры, то первые две строчки после begin, которые начинаются на //, раскомментируй(убери эти //) и в строчках:
  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.
4,4(52 оценок)
Ответ:
ffffffffff444
ffffffffff444
18.12.2020
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.
4,5(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ