Определить, сколько будут стоить обои для всей стены если цена одного рулона к руб

Категория: Delphi/Pascal
2012-03-23 19:06:56

Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна а и высота б. Рулон обоев имеет длину 12 м и ширину 1 м.

code: #pascal
uses crt;
var a,b,c,d,price,payment,k:real;
begin;
clrscr;
writeln('Введите параметры стены(высота)');
readln(a);
writeln('Введите параметры стены(ширина)');
readln(b);
writeln('Введите стоимость одного рулона обоев');
readln(price);
writeln('Введите длину рулона обоев)');
readln(d);
writeln('Введите ширину рулона обоев');
readln(c);
k:=b/((d/a)*c)+1;
payment:=k * price;
writeln('Обои для всей стены будут стоить ',payment:7:2,' руб.');
writeln('Вам потребуется купить',k,' рулонов');
end.
Поделиться:

Похожие статьи:

теги: студенты