Вообщем если количество дней вводится с клавиатуры, то первые две строчки после 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.
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.