Найти сумму нечётных чисел, из промежутка от 11 до - вопрос №16741961199 от ninacat1 10.12.2021 16:26

Question

Информатика: Найти сумму нечётных чисел, из промежутка от 11 до 99, найти среднее арифметическое чисел от 1 до 50

ninacat1 · Answer

uses crt;

var s,i:integer;

begin

for i:=11 to 99 do

if a mod 2 <> 0 then s:=s+i;

writeln(s);

readln;

end.

2.

uses crt;

var s,i:integer;

begin

for i:=1 to 50 do s:=s+i;

writeln(s/50);

readln;

end;