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

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

    //как то так!

     

    • Автор:

      ruger
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years