Регистрация
инна1903
22.08.2022 14:28
Информатика
Есть ответ 👍

Скиньте ответы по ивт, 2 четверть сор номер 2.7 класс. ❤​

232
464
Посмотреть ответы 1

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

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.

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