Паскаль. 1 дано целое число N. Вычислить среднее арифметическое всех чисел из диапазона от 1 до N.

2 дано целое число N. Вывести на экран все нечётные числа из диапахона от 1 до N. Вычислить их сумму.

Question

Информатика

Кастрихий

7 мая, 10:58

Паскаль. 1 дано целое число N. Вычислить среднее арифметическое всех чисел из диапазона от 1 до N.

2 дано целое число N. Вывести на экран все нечётные числа из диапахона от 1 до N. Вычислить их сумму.

+3

Ответы (1)

Знаете ответ на вопрос?

Лева · Answer 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 20 then begin writeln (i) ; sum:=sum+i; end;

writeln (sum) ;

end.