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