<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
Ну посчитай, 480 пикселей на 248.
119040
//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.