Подсчитать количество отрицательных целых чисел a,b,c
Подсчитать количество отрицательных целых чисел a,b,c
Гость
Ответ(ы) на вопрос:
Гостьprogram fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
end.
Не нашли ответ?
Похожие вопросы