Если не разделять понятия неотрицательных и положительных, то этот код: Var A,B,C,P,O:integer; Begin P:=0; O:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A>=0 then P:=P+1 else O:=O+1; if B>=0 then P:=P+1 else O:=O+1; if C>=0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O) End.
Если разделять, то этот: Var A,B,C,P,O,N:integer; Begin P:=0; O:=0; N:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A=0 then N:=N+1 else if A>0 then P:=P+1 else O:=O+1;
if B=0 then N:=N+1 else if B>0 then P:=P+1 else O:=O+1;
if C=0 then N:=N+1 else if C>0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O); WriteLn('Нулей ',N) End.
Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Вводите:'); var m:=s.Matches('\b\w{3}\b'); if m.Count>0 then m.Println else Writeln('Нет трехбуквенных слов') end.
Пример: Вводите: Как найти все слова, где букв - три? Как все где три
a=16
b=int(input())
if a!=b:
print("У вас нет паспорта")
else:
print("у вас есть паспорт")