Рассчитать количество краски - Pascal

Формулировка задачи:

Рассчитать количество краски, необходимое для покраски окон, если известен расход краски на 1кв. м.

Код к задаче: «Рассчитать количество краски - Pascal»

textual
var
  a,b,c,d,r,s:real;
  n:integer;
begin
  writeln('Окраска прямоугольной рамы');
  write('введите длину и ширину рамы (м):');readln(a,b);
  write('введите количество стекл:');readln(n);
  for n:=1 to n do begin
    write('введите длину и ширину ',n,'-го стекла (м):');readln(c,d);
    s:=s+c*d;
  end;  
  write('введите расход краски на л/м2:');readln(r);
  writeln('Потребуется краски:',(a*b-s)*r*1.6:0:2,' л');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.273 из 5


СДЕЛАЙТЕ РЕПОСТ