У меня 7 числа день рождения - информация понятная, актуальная если 7 число не наступило, и неактуально если полезная если я это говорю своему другу, и бесполезна если говорю мимо идущему прохожему которого вижу впервые, достоверная если я сказал правду, и недостоверная если солгал, полная если этого достаточно чтобы понять когда я родился(говорили про текущий месяц), и неполная если я просто так заикнулся не уточнив месяц, понятная если сказал на русском рускоязычному человек, непонятная если я сказал по русски тому кто русский не понимает(иностранцу к примеру). если смысл понятен то можно придумать много таких вариантов даже из одного примера, в принципе можно и на каждый случай отдельные приводить
Pascal: var n,m:longint; f:boolean; begin write ('Decimal: '); readln(n); write ('Number: '); readln (m); f:=true; while (n<>0) do begin if ((n mod 10)=m) then begin f:=true; break; end; n:=n div 10; end; if f then writeln ('YES!') else writeln ('NO'); readln; end.
C++: #include <iostream> using namespace std;
int main() { int n,m; bool f = false; cout <<"Decimal: "; cin >>n; cout <<"Number: "; cin >>m; while (n!=0) { if ((n%10)==m) { f = true; break; } n/=10; } if (f) cout <<"YES!" <<endl; else cout <<"NO!" <<endl; return 0; }
