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

Question

Информатика

Варлам

26 февраля, 20:21

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

+1

Ответы (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.