Задача A-Цифри
var
f,f1:text;
k,m,i:byte;
a:longint;
d:array[1..10] of byte;
b:boolean;
begin
assign(f,'z1.dat'); reset(f);
assign(f1,'z1.sol'); rewrite(f1);
readln(f,k); b:=false;
while not eof(f) do begin
readln(f,a);
m:=0;
if (a<0) then a:=-a;
if (a=0) then begin m:=1; d[1]:=0; end;
while a<>0 do begin
m:=m+1;
d[m]:=a mod 10;
a:=a div 10;
end;
if (m=k) then begin
b:=true;
for i:=k downto 1 do
write(f1, d[i], ' ');
writeln(f1);
end;
end;
if (b=false) then writeln(f1, 'no solution');
close(f1);
end.
Задача B-Послідовність
var
f,f1 : text;
x,i:longint;
a:array[1..10000] of byte;
begin
assign(f,'z2.dat'); assign(f1,'z2.sol'); rewrite(f1);
reset(f);
while not eof(f) do
begin
readln(f,x);
if (x>=1) and (x<=10000) then a[x]:=1;
end;
i:=1;
while (i<10000) and (a[i] = 1) do i:=i+1;
if a[i]=0 then writeln(f1,i) else writeln(f1,10001);
close(f);close(f1)
end.
Задача C-Текст
var
f,f1 : text;
c:char;
i:integer;
sl:string;
begin
assign(f,'z3.dat');assign(f1,'z3.sol');
reset(f);rewrite(f1);
read(f,c);
while not eof(f) do
begin
while not (c in ['a'..'z']) and not eof(f) do
begin
if c=#10 then writeln(f1);
read(f,c)
end;
sl:='';
while (c in ['a'..'z']) and not eof(f) do
begin sl:=sl+c; read(f,c) end;
if (c in ['a'..'z']) and eof(f) then sl:=sl+c;
if length(sl)>1 then write(f1,sl,' ');
end;
close(f); close(f1);
end.
