Составить программу на Pascal для решения задачи: еженедельно школьнику на питание выделяют N рублей. Каждый день у него 6 уроков. После каждого урока он ходит в столовую и покупает булочку за 15 рублей и чай за 5 рублей. Хватит ли школьнику выделенных денег на неделю. (компьютер должен вывести сообщение - "Денег хватит" или "Денег не хватит")

Question

Толяна

3 августа, 18:07

+3

Ответы (1)

Знаете ответ на вопрос?

Феозва · Answer 1

Var

N: integer;

Begin

Readln (N) ;

If N / 36 > = 20 Then

Writeln ('Денег хватит')

Else

Writeln ('Денег не хватит') ;

End.