Записные книжки справочник эциклопедии комикс журнал т.д
Uses crt;
const n=15;
var a : array [1..99] of integer;
i:integer;
begin writeln('исходный массив:');
for i:=1 to n do //заполнение массива случайными числами
begin a[i]:=random(71)-15;
write(a[i],' ');
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do begin // Проверка на чётность
if a[i] mod 2=0 then
write(a[i],' ');
end;
end.
1 Дано слово ,,КОМПЬЮТЕР". Составить программу получения слов ,,КОМ", ,, РЕТРО'', ,, РОК", используя только буквы исходного слов
ekhlass
<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>
УДФ