Question

Работа с системой программирования на языке Паскаль.

Составьте программу для вывода на экран простых чисел, определяемых по формуле PRCHISLO = n^2-n+41 , где n = 1, 2, 3, ..., 40. Вывод чисел реализуйте в строку, через пробел.

Answer 1

Var n, fom, fin: integer;egin
begin

n := StrToInt(Edit 1. Text) ;
fom := Power(n, 2)-n+41;
fin := IntToStr(fom) ;
if (n >= 1) or (n <= 40) then Edit 2. Text := fin;
else Edit 2. Text := 'Значение не подоходит' ;

end;