• Даны 3 числа,написать программу подсчитывающую количество отрицательных чисел и сумму неотрицательных чисел

Ответы 1

  • Program p2;Var a,b,c:integer; kolichestvo:byte; summa:integer;Beginkolichestvo:=0;summa:=0; Readln(a); If a<0 then kolichestvo:=kolichestvo+1 else summa:=summa+a; Readln(b); If b<0 then kolichestvo:=kolichestvo+1 else summa:=summa+b; Readln(c); If c<0 then kolichestvo:=kolichestvo+1 else summa:=summa+c; Writeln('Количество отрицательных = ',kolichestvo); Writeln('Сумма положительных = ',summa);End.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years