Паскаль. 1 дано целое число n.вычислить среднее арифметическое всех чисел из диапазона от 1 до n. 2 дано целое число n.вывести на экран все нечётные числа из диапахона от 1 до n. вычислить их сумму.
nuraytolegen91
1
17.03.2019 21:00
0
Другие вопросы по теме Информатика
12unicorn12
05.03.2021 07:21
елена1179
23.08.2019 15:50
malinka149
11.08.2019 16:00
Никитосик3456
11.08.2019 16:00
svatoslavsasko3
29.05.2020 13:39
kirushaaa
30.05.2020 13:41
Mihrimah1
30.05.2020 13:44
goodanonim
30.05.2020 13:50
Популярные вопросы
- Кто был одним из крупнейших представителей всемирной духовной культуры? а) Махмуд...
1 - Выберите два вещества, между которыми возможна реакция ионного обмена: бромоводород,...
1 - Визначте побудовою положення оптичного центру і фокусів лінзи...
2 - Дать определение понятиям карлуки. Огуз джагбу. Алтай. Джунгария . Озеро Зайсан.....
3 - 6. Від генератора з ЕРС 250 В та внутрішнім опором 0,1 Ом необхідно протягти до...
2 - Каким образом зависит проводимость плазмы от степени её ионизации?...
2 - Подчеркните определения, определите их вид. На завтрак подали яйцо всмятку. Печальная...
2 - Какие бывают Метаморфические горные породы...
3 - як змінилася сила взаємодії між зарядами якщо заряди зменшується у 4 рази віддаль...
3 - with my team. 5 Complete the text with the correct form of the verbs in the box....
1
var N,i:integer;
begin
readln(N);
writeln((N+1)/2);
end.
var N,sum,i:integer;
begin
readln(N);
for i:=1 to N do if i mod 2<>0 then begin writeln(i); sum:=sum+i; end;
writeln(sum);
end.