Question

У магазині іграшок продають в упаковці по три м'ячики та по п'ять м'ячиків. Чи можна купити рівно n м'ячиків? Вказівка. Неможливо купити рівно n м'ячиків, коли n < 3 або n = 4, або n = 7. ТЕСТ 1 Вхідні дані: 7 Вихідні дані: Не можна купити рівно 7 м'ячиків ТЕСТ 2 Вхідні дані: 22 Вихідні дані: Можна купити рівно 22 м'ячиків Нужно написать в Pascal

Answer 1

```
program BallPacks;

var

 n: integer;

begin

 write('Enter the number of balls: ');

 readln(n);

 if (n < 3) or (n = 4) or (n = 7) then

   writeln('It is not possible to buy exactly ', n, ' balls')

 else

   writeln('It is possible to buy exactly ', n, ' balls');

end.

```

У цьому коді ми спочатку пропонуємо користувачеві ввести кількість куль, які він хоче купити. Потім ми використовуємо оператор if, щоб перевірити, чи кількість кульок менша за 3, дорівнює 4 або дорівнює 7. Якщо будь-яка з цих умов виконується, ми друкуємо повідомлення про те, що неможливо купити рівно n кульок. В іншому випадку ми друкуємо повідомлення про те, що можна купити рівно n кульок.

Answer 2

Ось програма на Pascal, яка перевіряє, чи можна купити рівно n м'ячиків у магазині іграшок:

pascalCopy code
program ToyBalls;

var
  n: integer;

begin
  writeln('Введіть кількість м\'ячиків (n): ');
  readln(n);

  if (n >= 3) and (n <> 4) and (n <> 7) then
    writeln('Можна купити рівно ', n, ' м\'ячиків')
  else
    writeln('Не можна купити рівно ', n, ' м\'ячиків');

  readln;
end.

Ця програма спочатку запитує користувача про кількість м'ячиків (n). Потім вона перевіряє, чи можна купити рівно n м'ячиків за допомогою умовного оператора if. Якщо умова виконується, вона виводить повідомлення "Можна купити рівно n м'ячиків", інакше виводить повідомлення "Не можна купити рівно n м'ячиків".