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

alexbarbos75 alexbarbos75    2   21.05.2019 17:40    1

Ответы
Sunrise01 Sunrise01  16.06.2020 13:56

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;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика