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

Байков
Jul 14, 2019
Var
N: integer;
Begin
Readln(N);
If N / 36 gt;= 20 Then
Writeln(Денег хватит)
Else
Writeln(Денег не хватит);
End.
N: integer;
Begin
Readln(N);
If N / 36 gt;= 20 Then
Writeln(Денег хватит)
Else
Writeln(Денег не хватит);
End.
103
Смежные вопросы: