Оптимизируйте программы ниже, так что бы они выполнялись за меньшее количество операций. 1) var n , m :integer;
k : real;
begin
readln(n);
m:=0;
while n>0 do begin
m:=m+2*n-1;
n:=n-1;
end;
k:=trunc(sqrt(m));
writeln(k);
end.
2) var n , m, i :integer;
begin
readln(n);
m:=2;
while m
if n mod m = 0 then i:=i+1;
m:=m+1;
end;
if i=0 then writeln(n);
end.
