Составить программу паскаль для вычисления суммы - вопрос №11431710 от Ккамв 12.03.2021 23:40

Question

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

Ккамв · 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.