Паскаль. 1 дано целое число N.Вычислить среднее арифметическое всех чисел из диапазона от 1 до N.
2 дано целое число N.Вывести на экран все нечётные числа из диапахона от 1 до N. Вычислить их сумму.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад