Регистрация
ТашаФедоренко
08.12.2021 11:22
Информатика
Есть ответ 👍

Как можно быстрее☹️
кр по информатике «элементы логики»

206
480
Посмотреть ответы 1

Ответы на вопрос:

VladimirVelocity
VladimirVelocity
4,4(19 оценок)

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

Популярно: Информатика