Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
var
s:string;
begin
read(s);
writeln(UpperCase(s));
end.
Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства
Ответ:
15
Объяснение:
У тебя идет цикл от i=1 до i<=5 и параллельно после каждого выполнения цикла i становится на 1 больше
Т.к условие 'до тех пор пока i меньше или не станет равно 5' цикл выполняется
1)i=1
s=0+1=1
2)i=2
s=1+2=3
3)i=3
s=3+3=6
4)i=4
s=6+4=10
5)i=5
s=10+5=15
При достижении i=5 мы выходим из цикла
Ответ:или 1) принтер или 2) внешняя память компьютера