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

Question

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

Answer 1

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;