ПОМОГИТЕ ПОЖАЛУЙСТА ВООБЩЕ ГОРЮ!!!!!!!!! НАЙДИТЕ СУММУ НЕЧЁТНЫХ ЧИСЕЛ ИЗ ПРОМЕЖУТКА ОТ 11 ДО 99!!!!!! ЭТО НАДО НА ПАСКАЛЕ НАПИСАТЬ!!!!!!!! НАЙТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ЧИСЕЛ ОТ 1 ДО 50!!! ТОЖЕ НА ПАСКАЛЕ НАПИСАТЬ!!!!!! ПОЖАЛУЙ...
ПОМОГИТЕ ПОЖАЛУЙСТА ВООБЩЕ ГОРЮ!!!!!!!!! НАЙДИТЕ СУММУ НЕЧЁТНЫХ ЧИСЕЛ ИЗ ПРОМЕЖУТКА ОТ 11 ДО 99!!!!!! ЭТО НАДО НА ПАСКАЛЕ НАПИСАТЬ!!!!!!!! НАЙТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ЧИСЕЛ ОТ 1 ДО 50!!! ТОЖЕ НА ПАСКАЛЕ НАПИСАТЬ!!!!!! ПОЖАЛУЙСТА!!!! ПОМОГИТЕ!!!!!!!!!!!1
Гость
Ответ(ы) на вопрос:
Гость1) var s,i:integer; begin s:=0; for i:=11 to 99 do if i mod 2 = 1 then s:=s+i; writeln(s); end. 2) var s,i:integer; begin s:=0; for i:=1 to 50 do s:=s+i; writeln(s/50); end. Вопросы недочеты в ЛС
ГостьProgram Poluotlichnik_1;
const n=99;
var
sum,i:integer;
begin
sum := 0;
for i:=1 to n do
if i mod 2 = 1 then
sum := sum + i;
writeln('Сумма нечетных чисел равна ',sum,);
end.
Program Poluotlichnik_2;
const n=50;
var
sum,i:integer;
begin
sum := 0;
for i:=1 to n do
sum := sum + i;
writeln('Среднее арифметичесоке равно ',sum/50,);
end.
Не нашли ответ?
Похожие вопросы