July 2022 1 11 Report

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

у меня есть программа в паскале(работает), задание которой звучит так: Подсчитать количество отрицательных чисел среди чисел 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.

Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.