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

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

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.

Похожие ответы
  1. Нужно ввести символьный массив из 8-ми элементов и найти количество цифр в этом массиве


Нашли ошибку?
Развитие проекта
Яндекс.Метрика