Помогите пожалуйста!!Программа в Паскаль.1)Ввести с клавиатуры натуральное число...

0 голосов
47 просмотров

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


Информатика (154 баллов) | 47 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(17.3k баллов)