Б), а) Скорее всего, пиктография это образно говоря "рисунки", звуковая тоже не то, либо слоговая, либо идеографическая.
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
Надсистема-Первая группа решений задачи минимизации связана с использованием надсистемы. Что такое надсистема? Это то, что окружает систему; то, с чем она взаимодействует. Для устройства – это окружающие его другие устройства, которые работают вместе. Так, для плазменной панели в качестве надсистемы может выступать мультимедийный центр, который включает саму плазменную панель, DVD-плеер, игровую приставку, колонки, компьютер.
Function GetWord(s:string; var ptr:integer):string;
var
i:integer;
begin
i:=PosEx(' ',s,ptr);
if i>0 then
Result:=Copy(s,ptr,i-ptr)
else
Result:=Copy(s,ptr,length(s)-ptr+1);
ptr:=i+1
end;
var
f,g:Text;
ib:integer;
s,Fam,Im,Ot:string;
begin
Assign(f,'Input.txt');
Reset(f);
Assign(g,'Result.txt');
Rewrite(g);
while not Eof(f) do begin
readln(f,s);
writeln(s); // отладочная выдача
ib:=1;
Fam:=GetWord(s,ib);
Im:=GetWord(s,ib);
Ot:=GetWord(s,ib);
writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)
writeln(Im,' ',Ot,' ',Fam); // отладочная выдача
writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
end;
Close(f);
Close(g)
end.
Тестовый прогон:
Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ArrRandom(10, -50, 50);
x.Println;
x[0] := x.Take(5).Where(t -> t < 0).Count;
x.Println
end.