П О М О Г И Т Е ПОЖАЛУЙСТА!
у меня есть программа в паскале(работает), задание которой звучит так: Подсчитать количество отрицательных чисел среди чисел 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.
Переменная k - это сам счетчик.
Если среди чисел нашлось отрицательное, то k +1
В конце концов, k -количество отрицательных чисел.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
