1)Сначала взять чайник, выбор чайника, если не сделан, то попросить выбрать, если да, то 2)Налить воду в чайник, выбор воды, горячая или холодная 3)Дождаться пока вода вскипятится 4)Взять чашку, выбор чашки, если чашка не выбрана, то попросить выбрать, если да, то 5)Налить кипяченую воду в чашку 6)Взять заварку, выбор заварки 7)Заварить чай, спросить вы хотите заварить именно этот чай? - если нет, то начать сначала, если да, то 8)Взять сахар 9)Добавить сахар в чай ложкой 10)Размешать, попросить попробовать чай, если чай не понравился, тогда начать сначала, если понравился, то 11)спросить:"Вы хотите что-нибудь к чаю?" - Если нет, то пить чай, если да, то 12)Взять что-нибудь к чаю, предложить выбор, что можно взять к чаю, после выбора 13)Пить чай
Общее количество учебников равно k*N. В шкаф помещается P*T учебников. Количество полностью заполненных шкафов Х равно целой части от деления k*N на P*T
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var k:=ReadInteger('Количество курсов:'); var n:=ReadInteger('Количество учебников для каждого курса:'); var p:=ReadInteger('Количество полок в шкафу:'); var t:=ReadInteger('Количество учебников на полке:'); Writeln('Будет полностью заполнено шкафов: ', (k*n) div (p*t)) end.
является
Объяснение: