Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn
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>
УДФ
<span>Формальные исполнители, то есть те, которые не понимают смысла алгоритма, а лишь выполняют указанные шаги и не могут их редактировать: собака, не понимающая смысл команд, телевизор, в общем - любые неодушевлённые исполнители. Неформальные - те, что понимают смысл алгоритма и могут вносить в него коррективы - скажем, человек.
Управление - процесс планирования организации мотивации и контроля,для достижения определённой цели.
Алгоритм-набор инструкций описывающий порядок действий исполнителя для достижения результата решения задачи за конечное число действий.
</span>
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Часы на циферблате: если использовать 24- часовую, то 8+7=15
