Предмет: Информатика,
автор: gamidmagome
Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В
Ответы
Автор ответа:
1
попробуй это
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 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.
var a,b:real; s,i,n: integer;
begin
readln(a,b);
n:=trunc(b);
S:=0;
for i:=(a) to n do
S:=i+S;
writeln(s);
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.
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.
Они все подходят?)
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Английский язык,
автор: sergeeva260109
Предмет: Математика,
автор: kirigayakazyto583
Предмет: Математика,
автор: Аноним
Предмет: Обществознание,
автор: Lala12er
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.