Вопрос по информатике:
ПОМОГИТЕ ПОЖАЛУЙСТА ВООБЩЕ ГОРЮ!!!!!!!!! НАЙДИТЕ СУММУ НЕЧЁТНЫХ ЧИСЕЛ ИЗ ПРОМЕЖУТКА ОТ 11 ДО 99!!!!!! ЭТО НАДО НА ПАСКАЛЕ НАПИСАТЬ!!!!!!!! НАЙТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ЧИСЕЛ ОТ 1 ДО 50!!! ТОЖЕ НА ПАСКАЛЕ НАПИСАТЬ!!!!!! ПОЖАЛУЙСТА!!!! ПОМОГИТЕ!!!!!!!!!!!1
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.04.2015 14:42
- Информатика
- remove_red_eye 8256
- thumb_up 41
Ответы и объяснения 2
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.
Вопросы недочеты в ЛС
- 28.04.2015 17:11
- thumb_up 37
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.
- 29.04.2015 03:39
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.