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

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


textual

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

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.

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

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



Похожие ответы
  1. Пожалуйста,помогите с задачей: Определить количество рулонов обоев, необходимых для оклейки 1, 2, 3 и т. д. комнат.

  1. Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.

  1. Пследовательно вводятся символы латинских прописных и строчных букв до ввода символа пробела. Подсчитать количество прописных букв

  1. В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

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

  1. Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та

  1. Дан текст за которым следует точка. Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы.(задача на строки). Нужен текст программы, и алгоритм).