1- персонажи сказки Буратино
2- русские народные сказки
3- города РФ
4- реки РФ
5- города
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure Zamena(var Stroka:string);
begin
var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;
var n:=cin.Length;
var cout:=cin[1:n]+cin[:1];
for var i:=1 to Stroka.Length do begin
var p:=cin.IndexOf(Stroka[i]);
if p>=0 then Stroka[i]:=cout[p]
end
end;
begin
var aa:='a bc 83xz';
aa.Println;
Zamena(aa);
aa.Println
end.
<u>Пример</u>
a bc 83xz
b cd 83ya
Блок-схема к задаче является ли число 17 простым
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.