Определить количество рулонов обоев - Pascal

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

textual

Код:

const
  a = 10;
  b = 20;
  c = 30;{размеры комнаты}
  a1 = 10;
  b1 = 5;{размеры рулона}
 
var
  s, k, x: integer;
 
begin
  s := a1 * b1;{площадь рулона}
  k := a * b;{площадь пола}
  x := k div s;
  k := b * c;{площадь двух стен}
  x += 2 * (k div s);
  k := a * c;{площадь двух других стен}
  x += 2 * (k div s);
  x := x * 4;{4 комнаты}
  writeln('нужно рулонов ', x);
end.

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

  1. Рост учеников класса хранится в массиве. Определить количество учеников, рост которых больше (меньше) роста ученика с номером П. Значение П вводится с клавиатуры.

  1. Дана целочисленная прямоугольная матрица. 1) найти номера строк, в которых на всех нечетных позициях стоят нули; 2) определить количество различных элементов матрицы

  1. Дана строка, определить кол-во цифр в заданной строке

  1. Дана последовательность символов, заканчивающаяся точкой. Известно, что среди этих символов есть двоеточие. Определить количество символов «*», стоящих после двоеточия. Нужно решить через (символьный тип) Char. Совсем не понимаю, кто-нибудь спасайте!

  1. Определить количество слов 'For'и'In' в строках тексового файла. Помогите, что здесь не так? Результат выдает нули

  1. Помогите пожалуйста решить задачу в pascal с блок схемой. Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Определить: -количество нулевых элементов вектора; с блок схемой.

  1. 2)Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество.

  1. Даны натуральное число n и целые числа a1, a2,..., an. Определить количество отрицательных и количество положительных вещественных чисел

  1. Задана последовательность точек плоскости P1(x[1], y[1]); P2(x[2], y[2]); …..; Pn(x[n], y[n]). Определить количество и номера элементов, которые больше своих соседей, т.е. x[i]>x[i-1] и x[i]>x[i+1]. Как в этот код добавить строки чтобы он считал и левого соседа? Заранее благодарю!


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