Question

Написать программы в Паскале.

1. Средний рост 10 баскетболистов равен а см, а средний рост 6 из них составляет в см. Чему равен средний рост остальных 4 баскетболистов?

2. Дима съел треть конфет, которые были в коробке, и еще a конфет. После этого в коробке осталось b конфет. Сколько конфет было в коробке.

3. За k ч напечатали a/b рукописи. За сколько часов напечатают всю рукопись?

Answer 1

Ответ:

1.

program p1;

var a,b:real;

begin

write('Введите средний рост 10 баскетболистов а = ');

readln (a);  

write('Введите средний рост 6 из них b = ');

readln (b);  

write('Cредний рост остальных 4 баскетболистов равен ',(a*10-b*6)/4);

end.

2.

program p2;

var a,b:integer;

begin

write('Введите сколько конфет, кроме трети, съел Дима а = ');

readln (a);  

write('Введите сколько конфет осталось в коробке b = ');

readln (b);  

write('В коробке было ',((b+a)/2)*3,' конфет(-ы)');

end.

3.

program p3;

var a,b:integer;

k:real;

begin

write('Введите какую часть рукописи напечатали a/b = ');

readln (a,b);  

write('Введите за сколько часов её напечатали k = ');

readln (k);

writeln('Всю рукопись напечатают за ',k*b/a,' час(-а,-ов)');

end.

Объяснение:

В 3 задаче учитываем, что, например, 4,6 часа - это 4 часа 36 минут.

Можно посчитать в минутах

write('Всю рукопись напечатают за ',k*60*b/a,' минут')

или так

write('Всю рукопись напечатают за ',trunc(k*60*b/a) div 60,' час(-а,-ов)',trunc(k*60*b/a) mod 60,' минут(-у,-ы)' )