Ответы
Ответ дал:
1
begin
var K,B,A: integer;
ReadLn(B,A);
K:=0;
if( A>=0 ) then begin
K:=K+1; end;
if( B>=0 ) then begin
K:=K+1; end;
writeln(K);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад