Составить программу паскаль для вычисления суммы нечетных чисел от 1 до заданного пользователем числа n. )
alenaFox457
1
17.05.2019 22:20
0
Другие вопросы по теме Информатика
qamqsmbfhfuc
22.05.2019 17:20
YAN222
08.10.2019 15:40
аор8
31.07.2019 20:00
ZayacZnaniy
31.07.2019 20:00
polufabrikat17
31.07.2019 20:00
ятупик2
16.06.2019 08:00
Тупой2111
17.04.2019 04:10
perizatttt
17.04.2019 04:10
Vlad584q
17.04.2019 04:10
Популярные вопросы
- Не относится к лингвистическим словарям? А) ассоциативный Б) энциоклопедический...
3 - с заданием по программированию больше нет) Соберите перетаскиванием строку,...
3 - До ть розв язати, будь ласка...
1 - расстояние между городами 400 км. автобус проехал 136 км. сколько процентов...
3 - Сколько энергии требуется затратить, чтобы расплавить серебро массой 50...
1 - Перечислите виды инсталляции...
1 - После преобразования растрового 256-цветного графического файла в чёрно-белый...
3 - Используя метод электронного баланса, расставьте коэффициенты, определите...
3 - две улитки боб и арнольд стартовали с восходом солнца. их скорости отличались,но...
1 - 1. В уравнении реакции 2NH3 = N2 + 3H2: А) подчеркните коэффициенты; Б)...
2
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.