Составить программу паскаль для вычисления суммы - вопрос №14314851 от jejixex8 14.11.2021 02:20

Question

Информатика: Составить программу паскаль для вычисления суммы нечетных чисел от 1 до заданного пользователем числа n. )

jejixex8 · Answer

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.