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.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=Range(1,10);
Writeln(s.Aggregate(1,(p,q)->p*q));
Writeln('S=',s.Where(k->k.IsEven).Sum,', П=',
s.Where(k->k.IsOdd).Aggregate(1,(p,q)->p*q));
Writeln('S2=',s.Select(k->k*k).Sum)
end.
<u>Результат</u>
3628800
S=30, П=945
S2=385
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320
Ответ:
Данные - это информация для хранения или обработки. Программа - это способ обработки данных