Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ritka121
07.03.2021 02:13 •
Информатика
Внебоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .человек садится в лифт и нажимает номер нужной ему квартиры м.на какой этаж дома довезёт лифт человека.(в паскале)
Показать ответ
Ответ:
bobrino599
07.10.2020 22:15
Я не особо силен в Pascal, так что вот
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.
0,0
(0 оценок)
Ответ:
Dan99pro
07.10.2020 22:15
Varn, flat, floor: Integer;
beginWrite('n = ');ReadLn(n);WriteLn('Какой номер квартиры нужен человеку?');ReadLn(flat);floor := (flat - 1) div 3 + 1;if (floor > n) or (flat <= 0) then beginwriteln('Не верный номер квартиры');exit;end;if (floor mod 2 = 0) or (floor = 1) thenwriteln('Едем на ', floor, ' этаж')elsewriteln('Едем на ', floor - 1, ' этаж');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mawa18
01.05.2020 21:59
рассматривается множество целых чисел, принадлежащих отрезку [200; 9120], которые делятся на 8 и не делятся на 7, 11, 17 и 19. Найдите количество таких чисел и минимальное...
орексе
08.07.2020 02:35
Условия типа если бывают: Укажите один или несколько правильных вариантов ответа: 1.Альтернативные 2.Безусловные 3.Условные 4.Компромиссные...
galitskovao
03.06.2020 19:10
Измените предыдущее значение переменной а, увеличив его в 2.5 раза, результат запишите в переменную d. Значение переменной d округлите. ПИТОН...
misterbory
09.02.2020 18:34
Для хранения растрокого изображения размером 128 на 128 пикселей ответили 22 КБ памяти. Каково максимальное возможное число цветов в палитре изображения?...
Фиаско1337
04.07.2021 05:08
9 клас дані ДО ТЬ БУДЬ ЛАСКА)...
lidiyamartin9
23.08.2022 15:49
Що називають методом об єкта ?...
rusibragimova9
27.10.2020 22:48
ПАСКАЛЬ. Написать программу расчета значения функции С. Использовать условный оператор. В программе провести все необходимые проверки: знаменатель не равен 0, под...
Indira6767
07.03.2021 11:29
В симфонический оркестр приняли на работу трёх музыкантов: Тома, Олега и Михаила — умеющих играть на скрипке, флейте, альте, кларнете, гобое и трубе. Известно, что:...
Tanya22rus
23.06.2021 10:40
класс с информатикой Хэлп...
liza8332
19.02.2021 02:24
Кокого человека можно назвать чесным...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.
beginWrite('n = ');ReadLn(n);WriteLn('Какой номер квартиры нужен человеку?');ReadLn(flat);floor := (flat - 1) div 3 + 1;if (floor > n) or (flat <= 0) then beginwriteln('Не верный номер квартиры');exit;end;if (floor mod 2 = 0) or (floor = 1) thenwriteln('Едем на ', floor, ' этаж')elsewriteln('Едем на ', floor - 1, ' этаж');
end.