1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
1)100101,130,36,35,3A 2)111001,210,25,64,9E 3)101001,232,72,156,8B 4)100011,124,78,541,2D
Обычный метод деления пополам. 8/2=4, 4/2=2, 2/2=1. Три вопроса.
1) четвертая или меньше? "да" 2)Вторая или меньше? "нет". 3)Третья? "нет".
Значит четвёртая. Можно и другим направлением по такой схеме.
<span>program if1;
var
a: integer;
begin
read(a)
;
if a > 0 then Inc(a);
write(a);
end
<span>может быть это ?.</span></span>
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
<span>a = 2
b = 20
2 4 8 16</span>