Предмет: Информатика,
автор: Egorkudryavtsev
Пожалуйста, сделайте на pascal
Приложения:
Ответы
Автор ответа:
1
Ответ:
begin
var квартира := ReadInteger();
var подъезд := (квартира + 35) div 36;
var этаж := (квартира - (подъезд - 1) * 36 + 3) div 4;
Writeln(подъезд, ' ', этаж);
end.
Объяснение:
Похожие вопросы
Предмет: Українська мова,
автор: kusnirenko1611
Предмет: Математика,
автор: lol22834
Предмет: География,
автор: mackeviciluha
Предмет: Физика,
автор: ооооолллляяя
Предмет: Математика,
автор: KIRILL205111