Составить программу на Pascal для решения задачи: еженедельно школьнику на питание выделяют N рублей. Каждый день у него 6 уроков. После каждого урока он ходит в столовую и покупает булочку за 15 рублей и чай за 5 рублей. Хватит ли школьнику выделенных денег на неделю. (компьютер должен вывести сообщение - "Денег хватит" или "Денег не хватит")
Ответы на вопрос
Ответил rudnizkiivlad
0
var
N: integer;
Begin
Readln(N);
If N / 36 >= 20 Then
Writeln('Денег хватит')
Else
Writeln('Денег не хватит');
End.
N: integer;
Begin
Readln(N);
If N / 36 >= 20 Then
Writeln('Денег хватит')
Else
Writeln('Денег не хватит');
End.
Ответил kulabuhov98
0
Вопрос, ради интереса. Почему N делится на 36?
Ответил rudnizkiivlad
0
6 уроков * 6 дней = 36 раз в неделю потратит по 20 р.
Ответил kulabuhov98
0
Благодарю.
Новые вопросы
Геометрия,
2 года назад
Химия,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад
Математика,
9 лет назад