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) t = 16 секунд
V = 2048 бит/с
I = V * t
I = 2048 * 16 = 4096 Байт
Ответ: 4096 байт
2) t = 4 секунды
I = 2 Кбайт = 16384 бит
V = I / t
V = 16384 / 4 = 4096 бит/с
Ответ: 4096 бит/с
var
i,n:integer;
s:real;
begin
repeat
write ('N = ');readln(n);
until (n>0);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln ('S = ',s:0:4);
readln;
end.
Надо выбрать определенную фигуру или просто начертить прямую линию..и подрисовать две палочки я так делаюю попробуй