Вообщем если количество дней вводится с клавиатуры, то первые две строчки после 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.
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.
В переводе на "нормальный язык", число должно быть меньше 50 и быть нечетным. Этому удовлетворяет вариант 2) 49
ответ: 2) 49