Anton661
?>

Найти сумму четных чисел от 1 до N. постусловие

Информатика

Ответы

sokolowskayaa
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Найти сумму четных чисел от 1 до N. постусловие
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Look7moscow
ИгоревичАндрей
violetta152028
Bi-1704
dmitzu8594
akbmaslafarkop3175
Бурмистров_Салагин1074
ele922009226536
krisrespect
moonligh3560
Kaccak8778
evsyukov1997
nataliarogacheva
sashakrav
svo1961