Предмет: Информатика,
автор: MALiNkA08
Паскаль. 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.
Интересные вопросы
Предмет: Русский язык,
автор: eldanautegen2009
Предмет: Алгебра,
автор: turrinshura
Предмет: Физика,
автор: Аноним
Предмет: Химия,
автор: Lollollol