Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

Ответ оставил Гость

Var a,b:integer;
begin
readln(a);
readln(b);
if (a<0) and (b>=0) then writeln(1);
if (b<0) and (a>=0) then writeln(1);
if (a<0) and (b<0) then writeln(2);
if (a>=0) and (b>=0) then writeln(0);
end.