составить программу для проверки утверждения: "Результат вычислений по формуле x^2+x+41, при 0<=x<=40 являются простые числа ". все результаты вывести на экран

Question

Леонила

3 февраля, 20:40

+2

Ответы (1)

Знаете ответ на вопрос?

Добромила · Answer 1

Program otvet0x40;

var x, i:integer;

begin

for i:=0 to 40 do begin

x:=sqr (i) + i+41;

write (' x (', i,') = ', x) ;

end;

end.