<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Var D: array [1..35] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 35 do
read(D[i]);
<span>sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.</span>
Вариант в Excel.
Можно пересортировать.
1 Гб = 0,001 Тб
6363 Гб = 6,363 Тб
Посмотри во вложенном файле, удачи!!!!!