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

Question

Информатика

Валент

24 августа, 14:21

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

+4

Ответы (1)

Знаете ответ?

Нифонт · 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
s2:=s2*k;

k:=k+1;

end;

sum:=c*k;

writeln (k, sum) ;

end.

//как то так!