Всем привет! Нужно решить задачу на Pascalе.
Группа получила задание обклеить плиткой комнату размерами N x M x H плиткой размером q x w.
Программа должна выдать количество плитки для оклейки. N это длина M ширина H высота q и w это размер плитки. Все числа должны быть натуральными и не более 100.
Во входе данных должно быть 2 строки в первой через пробел N M H а во второй q и w.
На выходе должно выводиться число плиток.
program z1;
type chisla = 1..100; (* тип chisla - натуральные числа от 1 до 100 
var N,M,H,q,w : chisla;
ss,sp,k,ost : integer;
begin
read(N,M,H);
read(q,w);
ss:=2*H*(N+M); (* площадь стен комнаты
sp:=q*w; (* площадь одной плитки
k:=ss div sp; (* кол-во плитки - целочисленное деление
ost:=ss mod sp; (* остаток от деления
if ost>0 then k:=k+1; (* если остаток > 0, то к кол-ву добавляется 1 - т. е если
получилось дробное кол-во плиток, то нужно
к целому кол-ву добавить еще одну
writeln('кол-во поиток = ',k);
end.
⇢