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

Question

Информатика

Димуля

12 июня, 22:25

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

+4

Ответы (1)

Знаешь ответ?

Федан · Answer 1

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.