Задать вопрос
12 июня, 22:25

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

+4
Ответы (1)
  1. 13 июня, 01:29
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Помогите найти ошибку в программе (она в комментариях) ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы