помогите пожалуйста. срочно нужно ! Разработать программу для ...
помогите пожалуйста. срочно нужно !
Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).
Есть ответ
17.12.2022
255
Ответ
var
a, b, c, d : integer;
begin
d := 0;
writeln ('Введите 3 числа');
readln (a, b, c);
if a < 0 then inc (d);
if b < 0 then inc (d);
if c < 0 then inc (d);
if d = 0 then writeln ('Среди введенных чисел нет отрицательных')
else if d = 1 then writeln ('Среди введенных чисел 1 отрицательное число')
else writeln ('Среди введенных чисел ', d, ' отрицательных числа');
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
