Будь-ласочка, допоможіть розв*язати...

Тема в разделе "Информатика", создана пользователем Artemida, 26 мар 2010.

  1. Artemida

    Artemida New Member

    Будь-ласочка, допоможіть розв*язати задачку, дуже-дуже траба:((На висаджування троянд в оранжереї, садівник Іван Петрович
    витрачає N год. З них A хв. він витрачає на те щоб
    привезти воду, B хв.
    щоб привезти кущі троянд. Решту часу садівник висаджує троянди. Скільки кущів
    троянд посадить Іван Петрович, якщо на саджання одно куща він витрачає С хв.


    Вхідні дані:


    Програма на вхід
    отримує чотири цілих числа N,
    A, B, C (1≤ N≤8,
    0< A, B, C<60).


    Вихідні дані:


    Програма має
    вивести кількість посаджених кущів троянд.
     
  2. NeoWar

    NeoWar New Member

    Программа на Паскале
    Program pr;
    uses crt;
    var A,B,C,N:word;   
    r:real;
    begin
    repeat
    clrscr;   
     writeln('Введите N,C,A,B');   
     write('N='); readln(N);     
    write('C='); readln(C);     
    write('A='); readln(A);     
    write('B='); readln(B);     
    if (60*N>A+B)  then     
    begin     
    r:=trunc((60*N-A-B)/C);     
    writeln('Количество роз - ',r);     
    end     
    else     
    if (60*N<A+B)  then   
     writeln('N(часов) не может быть меньше суммы A и B(мин)!');
    readln     
    until (60*N>A+B);   
     end.
     

Поделиться этой страницей

Наша группа