Question

Написать программу в PascalABC:
Определить есть ли среди чисел х, у, z, хотя бы одно отрицательное, если среди них есть отрицательные то посчитать их кол-во

Answer 1

Ответ:

begin

 var count := 0;

 var num := 0;

 repeat

   var a := ReadInteger;

   Inc(num);

   if a < 0 then

     Inc(count);

 until num = 3;

 Println('Количество отрицательных: ', count);

end.

Answer 2

Боже)

Answer 3

согласен

Answer 4

program Chislo;

var
x, y, z, i: integer;

begin
readln(x, y, z);
if x < 0 then
Inc(i);
if y < 0 then
Inc(i);
if z < 0 then
Inc(i);
Write('Количество отрицательных: ', i);
end.