|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2018, 19:04 | #1 |
Пользователь
Регистрация: 05.03.2018
Сообщений: 17
|
не могу найти проблему
В ПК поступают сведения о количество кв. метров жилой площади и количестве человек в семье, каждого из N работников предприятия. Требуется определить у скольких работников предприятия жилищные условия ниже нормы (норма – 12 кв. метров на одного человека).
Var i,n,s:integer; m :real; Begin m:=0; for i:=1 to n do begin writeln ('Введите кол-во человек в семье'); readln (s); s:=s+n; end; s:=s/n; writeln('введите кол-во кв метров'); if m>=12 then writeln('Жилищные условия в норме') else if m<12 then writeln('Жилищные условия ниже нормы'); End. |
10.04.2018, 10:04 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Название темы прикольное. Обычно проблемы сами меня находят, а мне приходится искать их решение
Т.е. мы суммируем количество работников (с их домочадцами, собачками и тещами) и делим на всех площадь ведомственного дома. Получаем среднюю температуру по больнице "Все хорошо, прекрасная маркиза"... Код:
Код:
Последний раз редактировалось digitalis; 11.04.2018 в 10:03. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу решить проблему с ShellListView | Janger | Общие вопросы Delphi | 2 | 29.03.2021 09:36 |
не могу найти проблему | Temka3791 | Фриланс | 3 | 06.03.2018 13:38 |
Не могу решить проблему с ошибкой | Janger | Общие вопросы Delphi | 7 | 20.03.2015 22:03 |
Не могу решить проблему в программе с BackSpace | Namtarius | Общие вопросы C/C++ | 5 | 24.02.2012 12:36 |
Не могу понять проблему | scalpel | PHP | 3 | 02.11.2011 17:50 |