Question

для уборки используется K комбайнов производительностью A(на/час) и D комбайнов производительностью B (на/час) продолжительность рабочего дня комбайном состовляет Z часов время для ежедневного технического обслуживания каждого комбайна -S часов определить какую площадь уберут комбайны за K дней.( По программированию.)

Answer 1

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

Answer 2

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.