в программе паскаль нужно ввести высоту и ширину стены, также ввести стоимость длину и ширину обоев. Вывести сколько рулонов потребуется на одну стену. И в этой же программе вывести сколько будет стоить столько рулонов.
More Questions From This User See All
Answers & Comments
program pr1;
var
a1,b1,a2,b2,k,c,s1,s2,sum:ineger;
begin
//
// тут ввод даных a1,b1 - стена; a2,b2 - обои; c- цена за 1 рулон, sum-сума;
//
k:=1;
s1:=a1*b1;
s2:=a2*b2;
while s2<s1 do begin
s2:=s2*k;
k:=k+1;
end;
sum:=c*k;
writeln(k,sum);
end.
//как то так!