Регистрация
dgrigoref
30.01.2022 08:01
Информатика
Есть ответ 👍

Нужно написать ПОЛНУЮ программу от program до end. Четырем классам необходимо убрать поле площадью F га. Сколько га надо убрать каждому классу, если количество человек в классах различно.

118
363
Посмотреть ответы 2

Ответы на вопрос:

анонім2281104
анонім2281104
4,6(85 оценок)

uses crt;

var f,a,b,c,d,s:real;

begin

write('Ââåäèòå ïëîùàäü äëÿ óáîðêè(ãà): ');

read(f);

writeln;

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 1-îãî êëàññà: ');

read(a);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 2-îãî êëàññà: ');

read(b);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 3-åãî êëàññà: ');

read(c);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 4-îãî êëàññà: ');

read(d);

s:=a+b+c+d;

writeln;

writeln('1-îìó êëàññó íóæíî óáðàòü ',a*f/s:4:2,' ãà');

writeln('2-îìó êëàññó íóæíî óáðàòü ',b*f/s:4:2,' ãà');

writeln('3-tìó êëàññó íóæíî óáðàòü ',c*f/s:4:2,' ãà');

write('4-îìó êëàññó íóæíî óáðàòü ',d*f/s:4:2,' ãà');

end.

refwqef
refwqef
4,4(39 оценок)

Нет .

Объяснение:

Они все в разных семейных деревьев и родов.

Популярно: Информатика