Вопрос по информатике:
Написать программу на языке Pascal (цикл for и while ). Найти сумму нечетных чисел в промежутке от 20 до n
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.01.2015 21:44
- Информатика
- remove_red_eye 6795
- thumb_up 37
Ответы и объяснения 2
Program l;
var
i, n, s: integer;
begin
writeln('Введите n');
readln(n);
for i = 20 to n do begin
if (i mod 2 0) then
s := s + i;
end;
write(s);
end.
- 12.01.2015 16:15
- thumb_up 30
i,n,s:integer;
begin
Write('n=');
Readln(n);
s:=0;
for i:=20 to n do
if Odd(i) then s:=s+i;
Writeln('Сумма с for = ',s);
s:=0; i:=21;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
Writeln('Сумма с while = ',s)
end.
- 13.01.2015 21:17
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.