На главную Самоучитель pascal Форум программистов онлайн Решение задач pascal Задачи pascal Поиск
12 Ноя 16

Простая арифметика


Комментарии :  1        Просмотры :  412
Поле имеет форму квадрат со стороной C м. На ручной уборке картофеля задействована группа из 25 студентов. Скорость уборки картофеля одним студентом составляет R м2 за 1 час. Определить, сколько дней D необходимо запланировать на уборку поля, если продолжительность рабочего дня составляет 8 часов
Рейтинг материала : ( 5 / 4 )
Сообщить об ошибке
Комментарии :  1        Просмотры :  412
wildfood
13 Ноя 16   19:42
wildfood
uses crt;
var
m, speed :integer;
day, rab_day, s:real;
const
students = 25;
day_rab = 8;
begin
write('Введите сторону поля: ' ) ;
readln(m);
write('Введите скорость работы студента(кол-во м2 в час): ' ) ;
readln(speed);
rab_day := students * day_rab;
s := m * m;
day :=s / rab_day;
writeln('Площадь поля: ', s,' м2.' ) ;
Writeln('Работу которую выполняют студенты в день: ', rab_day,' м2' ) ;
Writeln('Формула счета: ',s,' * ',rab_day,' = ',day) ;

writeln('Кол-во дней для выполнения работы: ',floor(day));

end.
+1  

Личный кабинет

Логин:
Пароль:

Поиск

RSS лента

Подписаться на rss


Подпишитесь на нашу ленту новостей rss и вы всегда сможете быть в курсе обновлений на нашем сайте.

Решение задач

Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам.

Опубликовать на сайте

Опубликовать на форуме

Опрос

Знаете ли вы другие языки программирования ?