Сделай так как на фото и все получиться ))))
1 Дано слово ,,КОМПЬЮТЕР". Составить программу получения слов ,,КОМ", ,, РЕТРО'', ,, РОК", используя только буквы исходного слов
Малинка-я
<u><em>*** 1 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
Writeln(w[1:4]);
Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
Writeln(w[w.Length]+w[2::-1])
end.
<u><em>Результат</em></u>
КОМ
РЕТРО
РОК
<u><em>*** 2 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
var i:=ReadInteger('i=');
Swap(w[i],w[w.Length]);
Writeln(w)
end.
<u><em>Тестовое решение</em></u>
i= 5
КОМПРЮТЕЬ
<u><em>*** 3 ***</em></u>
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='ПАР'; // исходное слово
var k:=4; // константа сдвига шифра Цезаря
var a:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВГ';
for var i:=1 to w.Length do begin
var p:=Pos(w[i],a);
if p>0 then w[i]:=a[p+k]
end;
Writeln(w)
end.
<u><em>Результат</em></u>
УДФ
I=16;
16₁₀=x₁₆
x₁₆=10₁₆
16₁₀=20₈
uses Math;
var w,x,y,z : real;
begin
x := 0.4* Power(10,4);
y := -0.875;
z := 0.475 * Power(10,-3);
w := Power(abs(cos(x) - cos(y)), 1 + 2 * sin(y) * sin(y)) * (1 + z + (z*z)/2 + Power(z,3)/3 + Power(z,4)/4);
writeln(w);
end.
1054=10000011110
798=1100011110
954=1110111010
1257=10011101001
365=101101101
в восьмеричной системе счисления ?
и y = 
