Задание:
Составить программу паскаль для вычисления суммы нечетных чисел от 1 до заданного пользователем числа n. Спасибо)
Решение:
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.
Знаете другой ответ?