Помогите решить задачу в паскале, только с полным решением. первая бригада маляров за t1 час покрасили А м3. а вторая бригада за t2 часа покрасила В м3. у какой бригады производительность выше и на сколько
var
t1,A,proiz1:integer;
t2,B,proiz2:integer;
begin
writeln (Введите время и площадь первой бригады);
readln (t1,A);
writeln (Введите время и плозадь второй бригады);
readln (t2,B);
proiz1:=t1*A;
proiz2:=t2*B;
if (proiz1>proiz2) then
writeln (Производительность первой бригады выше на , proiz1-proiz2)
else
writeln (Производительность второй бригады выше на , proiz2-proiz1);
end.
Оцени ответ
