Задача 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';
}
}
