Предмет: Информатика,
автор: AsyaSa98
Помогитеее!! срочно нужно !
Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).
Ответы
Автор ответа:
0
var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: puyrus20
Предмет: Математика,
автор: alinalina5698
Предмет: Биология,
автор: Вектория