Задача A-Цифри Шевчук Олександр var f,ff:text; s:string; n,i,m:longint; b:boolean; begin assign(f,'z1.dat'); reset(f); assign(ff,'z1.sol'); rewrite(ff); readln(f,n); b:=false; while not eof(f) do begin readln(f,m); m:=abs(m); str(m,s); if n=length(s) then begin for i:=1 to n-1 do write(ff,s[i],' '); writeln(ff,s[n]); b:=true; end; end; if b=false then writeln(ff,'no solution'); close(ff); close(f); end.
Задача B-Послідовність Кондаков Олександр #include <fstream> using namespace std; int a,d[10002]; int main() { ifstream f("z2.dat"); ofstream f1("z2.sol"); while (1) { f>>a; if (f.eof()) break; if (a>0 && a<10001) d[a]=1; } for (int i=1; i<=10001; i++) if (d[i]==0) { f1<<i <<endl; break; } return 0; }
Задача C-Текст Шумейко Максим #include<iostream> #include<string> #include<cstdio> using namespace std; int main () { freopen("z3.dat","r",stdin); freopen("z3.sol","w",stdout); string a,b; long long k=0; while (!cin.eof()) { getline(cin,a);b="";k=0; for (int i=0;i<a.size();i++) { if ((int(a[i])>96)&&(int(a[i])<125)) {k++;b+=a[i];} else {if(k>1) {cout<<b<<' ';k=0;b="";}else{k=0;b="";}} } if((k>1)&&(b!="")) cout<<b; a="";cout<<'\n'; } }