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

157

355

Посмотреть ответы 2

Ответы на вопрос:

davidforest111p0dsil

Информатика

4,6(27 оценок)

Var n: integer; begin readln(n); if n / 36 > = 20 then writeln('денег хватит') else writeln('денег не хватит'); end.

Юлья0000000

Информатика

4,8(30 оценок)

Ох уж этот паскаль program zz; var a: integer; begin readln(a); a: =a mod 10; if a mod 2=0 then writeln(a,' -четное число') else writeln(a,' -нечетное число'); end.

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку