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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted 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;