Комментарии 8

• uses PT4; var num,sum:integer; begin Task('Series13'); num:=1; while num<>0 do begin read(num); if (num > 0) then if (num mod 2) = 0 then sum:=num + sum; end; write(sum); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  uses PT4; var num,sum:integer; begin   Task('Series13');   num:=1; while num<>0 do   begin     read(num);     if (num > 0) then       if (num mod 2) = 0 then         sum:=num + sum;   end;   write(sum); end.

  Ответить

  • «неравно» между num и 0

    Ответить

    • Поправил, к стати если поместит код в нутри конструкции <pre> код </pre>, то не должны съедаться знаки неравенства.

      Ответить

• А почему тип переменной именно longint?

  Ответить

  • Ни какого смысла это не несёт.
    Из чернового варианта сюда попало.
    Да пусть будет… может кто посмотрит и вспомнит, что бывают и другие типы кроме integer 🙂

    Ответить

• А как код в спойлер закатать?

  var i, num, sum: integer; begin i := 0; sum := 0; num := 1; while num <> 0 do begin inc(i); writeln('введите ', i, '-e число'); readln(num); if (num < 0) or odd(num) then continue; sum := sum + num; end; write(sum); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

  var   i, num, sum: integer;   begin   i := 0;   sum := 0;   num := 1;   while num <> 0 do   begin     inc(i);     writeln('введите ', i, '-e число');     readln(num);     if (num < 0) or odd(num) then continue;     sum := sum + num;   end;   write(sum); end.

  Ответить

  • Так код это же самое важное ! 🙂
    Зачем его скрывать? 🙁

    Ответить

• //ручной ввод, pascalABC.net begin writeln('введите числа из набора: '); var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Sum.Println; end.

  1 2 3 4 5

  //ручной ввод, pascalABC.net begin   writeln('введите числа из набора: ');   var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Sum.Println; end.

  //автоматически из массива, pascalABC.net begin var a:=ArrRandomInteger(20,-10,20);a.Println; a.TakeWhile(t->t<>0).Println;//до первого 0 a.TakeWhile(t->t<>0).Where(t->t>0).Println;//положительные a.TakeWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Println;//четные a.TakeWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Sum.Println;//сумма end.

  1 2 3 4 5 6 7 8

  //автоматически из массива, pascalABC.net begin   var a:=ArrRandomInteger(20,-10,20);a.Println;   a.TakeWhile(t->t<>0).Println;//до первого 0   a.TakeWhile(t->t<>0).Where(t->t>0).Println;//положительные   a.TakeWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Println;//четные   a.TakeWhile(t->t<>0).Where(t->t>0).Where(t->t.isEven).Sum.Println;//сумма end.

  Ответить