Посчитать количество отрицательных чисел среди чисел m,n,p
Посчитать количество отрицательных чисел среди чисел m,n,p
Гость
Ответ(ы) на вопрос:
Гостьvar m,n,p,k:integer;
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.
Пример:
Введите 3 числа:
12 -7 31
k=1
Не нашли ответ?
Похожие вопросы