Регистрация
ksyushaivleva
12.10.2022 03:43
Информатика
Есть ответ 👍

Найти ошибку в программе(она в комментариях)

105
359
Посмотреть ответы 2

Ответы на вопрос:

Ilja0413
Ilja0413
4,4(71 оценок)
Var x,y,d,k: integer; begin for x: = 0 to 15 do       begin       y: =x*x+x+17;       write('f(',x,') = ',y);       k: =0;       d: =y div 2;       while d > 1 do             begin             if y mod d = 0 then k: =k+1;             d: =d-1             end;       if k = 0 then writeln(' - простое')       else writeln(' - составное')       end; end.
прог13
прог13
4,8(20 оценок)
For i in 1..20       t = i.to_s(3);       if t[0,1]=='2'             puts i.to_s() + " = " + t + "(3)"       end end 2 = 2(3) 6 = 20(3) 7 = 21(3) 8 = 22(3) 18 = 200(3) 19 = 201(3) 20 = 202(3)

Популярно: Информатика