Question

Программа в паскаль. 1)ввести с клавиатуры натуральное число n.оканчивается ли это число на 8? примеры: 518-да,10-нет. 2)к пете на день рождения пришли к друзей с коробкой конфет.в коробке 25 конфет.хватит ли конфет,чтобы всем дать по две конфеты? примеры: 5-да,12-нет. 3)у пети s рублей.сможет ли он купить 5 тетрадей,если одна тетрадь стоит m рублей? примеры: 30 5-да,10 5-нет.

Answer 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.