1)
var s,i: integer;
begin
s: =0;
for i: =11 to 99 do
if i mod 2 = 1 then s: =s+i;
writeln(s);
end.
2)
var s,i: integer;
begin
s: =0;
for i: =1 to 50 do
s: =s+i;
writeln(s/50);
end.
вопросы недочеты в лс
Поделитесь своими знаниями, ответьте на вопрос:
Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое чисел от 1 до ! тоже на паскале ! 1
program poluotlichnik_1; const n=99; var sum,i: integer; begin sum : = 0; for i: =1 to n do if i mod 2 = 1 then sum : = sum + i; writeln('сумма нечетных чисел равна ',sum,); end.program poluotlichnik_2; const n=50; var sum,i: integer; begin sum : = 0; for i: =1 to n do sum : = sum + i; writeln('среднее арифметичесоке равно ',sum/50,); end.