• П О М О Г И Т Е ПОЖАЛУЙСТА!

    у меня есть программа в паскале(работает), задание которой звучит так: Подсчитать количество отрицательных чисел среди чисел a, b ,c.

    Что такое k и выражение k:=k+1 ?

     

    Program 13;
    Uses crt;
    var a,b,c: real;
    k: integer;
    Begin
    Clrscr;
    Write ('введите три числа ->');
    Read(a,b,c);
    Write ('отричательных чисел ');
    if a<0 then k:=k+1;
    if b<0 then k:=k+1;
    if c<0 then k:=k+1;
    if k=0 then Write ('-нет')
    else Write (k,' штук');
    Readln;
    end.

Ответы 1

  • Переменная k - это сам счетчик.

    Если среди чисел нашлось отрицательное, то k +1

    В конце концов, k -количество отрицательных чисел.

    • Автор:

      casey86
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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