Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В
More Questions From This User See All
Answers & Comments
Program Summa;
var s,i,n:integer;
begin
write('Введите n:' );
readln(n);
s:=0;
for i:=1 to n do
if (i mod 2)<>0 then s:=s+i;
writeln;
writeln('Сумма нечётных чисел равна:',s);
readln; {для паузы}
end.
Program z1;
var
i, n, m: integer;
begin
write('введите любое натуральное число: ');
readln(n);
for i:=1 to n do
begin
m:=m+i;
end;
writeln('сумма всех натуральных чисел не превышающих ',n,' - ',m);
end.
begin
readln(a,b);
n:=trunc(b);
S:=0;
for i:=(a) to n do
S:=i+S;
writeln(s);
end.
Program zadacha1;
var
s,n : integer;
begin
writeln('Введите N');
read(n);
s:=0;
while (n<>0) do
begin
inc(s,n);
dec(n);
end;
writeln('Сумма = ',s);
end.