• Помогите пожалуйста!!
    Программа в Паскаль.
    1)Ввести с клавиатуры натуральное число N.Оканчивается ли это число на 8?Примеры:518-Да,10-Нет.
    2)К Пете на день рождения пришли К друзей с коробкой конфет.В коробке 25 конфет.Хватит ли конфет,чтобы всем дать по две конфеты?Примеры:5-Да,12-Нет.
    3)У Пети S рублей.Сможет ли он купить 5 тетрадей,если одна тетрадь стоит M рублей?Примеры:30 5-Да,10 5-Нет.

Ответы 1

  • Var   N,K,S,M: integer;begin{1-я задача}writeln("Введите натуральное число");readln(N);if N mod 10 = 8 then  writeln("Число оканчивается на 8")   else writeln("Число не оканчивается на 8");{2-я задача}writeln("Введите количество гостей пришедших к Пете");readln(K);if (25-K*2)>0 then writeln("Конфет хватит")   else writeln("Конфет недостаточно");{3-я задача}writeln("Введите количество рублей у Пети, а затем цену одной тетради");readln(S);readln(M);if (S-M*5)>=0 then writeln("Петя сможет купить пять тетрадей");  else writeln("Пяти тетрадей не купить");end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years