Запросите у пользователя положительное число А и найдите сумму всех натуральных чисел из промежутка [1,A]

[white_angel73]

Помогите с программой плиз!.........



Вставить два элемента:первый-после максимального элемента, второй-перед максимальным элементом массива.



Спасибо заранее

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread119904.html
а зачем ещё и здесь то спросили?

[white_angel73]

чтоб надежней)))

[mifomen]

Сообщение от white_angel73

составить программу, печатающую все простые числа, не превосходящие данного числа!

PHP код:

program eratos;
uses crt;
var s1,s2:set of byte;
i,j,m,n:integer;
begin
clrscr;
writeln('Input ''''m''''');
readln(m);
for i:=2 to m do include(s1,i);
for i:=2 to m do
begin
n:=0;
for j:=i to m do
if (j in s1) then
begin
if (j mod i = 0) then exclude(s1,j);
if (j mod i <> 0) then inc(n);
if n=0 then include(s2,j);
end;
end;
writeln('Mnogestvo s2:');
writeln;
for i:=2 to m do if (i in s2) then write(i:4);
readkey;
end.