Question

в программе паскаль нужно ввести высоту и ширину стены, также ввести стоимость длину и ширину обоев. Вывести сколько рулонов потребуется на одну стену. И в этой же программе вывести сколько будет стоить столько рулонов.

Answer 1

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.

//как то так!