Паскаль. 1 дано целое число N.Вычислить среднее арифметическое ...
Паскаль. 1 дано целое число N.Вычислить среднее арифметическое всех чисел из диапазона от 1 до N.
2 дано целое число N.Вывести на экран все нечётные числа из диапахона от 1 до N. Вычислить их сумму.
Есть ответ
17.12.2022
443
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
