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

Question

Информатика

Никуша

5 августа, 20:00

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

+5

Ответы (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.

//как то так!