В кафе мороженое продают по три шарика и по пять шариков. Можно ли купить ровно k шариков мороженого? Входные данные
Вводится число k (целое, положительное)

Выходные данные
Программа должна вывести слово YES, если при таких условиях можно набрать ровно k шариков (не больше и не меньше), в противном случае - вывести NO.
var
a, k: integer;

begin
read(a);
while a > 2 do
begin
if (a mod 5 = 0) or (a mod 3 = 0) or ((a - 3) mod 5 = 0) or ((a - 5) mod 3 = 0) then
begin
writeln('YES');
k := 13;
break;
end;
a := a - 3;
end;
if k <> 13 then
writeln('NO');
end.
СОСТАВИТЬ СХЕМУ ЗАДАЧИ

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500. 

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

2*3=6

512*128*6=393216

393216: 1024=384кб