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

Question

Информатика

Эладя

22 апреля, 01:42

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

+3

Ответы (1)

Знаете ответ на вопрос?

Эдуард · 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;