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

Question

Информатика

Амфилохий

23 июля, 20:21

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

+5

Ответы (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;