Вкафе продается мороженое по 3 или по 5 шариков в порции. определить, можно ли купить k шариков мороженного. входные данные: во входном потоке в первой строке задано натуральное число к (k < = 1000) выходные данные: вывести yes или no. пример входного файла (input.txt): 2

    x: - входное число, целое     а: - целое шаг 1.     x - делится на 5 ?     если да то ответ yes, выход шаг 2.     а: = x-5*целое (х/5) шаг 3     a - делится на 3 ?     если да то ответ yes, выход шаг 4     a: =a+5 шаг 5     a - больше чем х ?     если да то  ответ nо, выход переход на шаг 3

1. решение для сомневающихся и привыкших писать программы безмозгло "в лоб" var   k, p, q: integer;   flag: boolean;   f: text begin   assign(f,'input.txt');   reset(f);   read(f,k);   close(f);   case k of       1, 2, 4, 7: writeln('no');       3, 5: writeln('yes');   else       q : = k mod 5;       if (q = 0) or (k = 3) then writeln('yes')       else       begin           q : = (k div 5);           flag : = false;           while (not flag) and (q > 0) do           begin               p : = k - 5 * q;               if p mod 3 = 0 then               begin                   writeln('yes');                   flag : = true               end;               q : = q - 1           end;           if (not flag) then writeln('no')       end   end end. 2. решение в соответствии с алгоритмом, в комментарии к вопросу. const   kno = [1, 2, 4, 7]; var   k: integer;   f: text begin   assign(f,'input.txt');   reset(f);   read(f,k);   close(f);   if k in kno then writeln('no')   else writeln('yes') end.

515b - в шестнадцетиричной сс(системе счисления)b - под номер 11 так как 0,1..9 10(a) 11(b) 12(c)шестнадцатиричная  сс состоит из 0,1..9  10(a)  11(b)  12(c) .. 15(f) ответ:   515b - шестнадцетиричная (16)            4305 - десятичная (10) или шестиричная (6)            9463 - десятичная (10) или десятичная (10), если отталкивать от условия " основание системы счисления должно быть больше 2 и не больше 36" а правильно я отметил я изучал 3 сс: (двоичная сс, десятичная, шестнадцетиричная, есть и другие не отрицаю)

№1 data 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500 dim a(25) for i=1 to 25 read a(i) print a(i) next for i=1 to 25   for j=1 to 24 if a(j)< a(j+1) then swap a(j),a(j+1) next next print "summa 4etireh naibolshih="; a(1)+a(2)+a(3)+a(4) print "summa 4etireh naimenshih="; a(25)+a(24)+a(23)+a(22) №2 cls input "n"; n dim a(1 to n), b(1 to n) for i = 1 to n a(i) = int(rnd * 100) b(i) = int(rnd * 100) print a(i), b(i) next i imin = 0 min = b(1) for i = 1 to n if b(i) < min then imin = i if i > imin then s = s + a(i): k = k + 1 next i sr = s / k print print "imin"; imin print "sr"; sr