<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 s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39
Var
y,x:real;
i:integer;
Begin
For i := 1 to 10 do Begin
x:=i;
y:=(3*sqr(x)-sqrt(x+1))/(2-x);
writeln('X',i,' = ',x,', Y',i,' = ',y);
End;
<span>End.</span>
Сорок восемь кб равно девяносто шесть тишч бит. Ето число нужно поделить на вес символа и получим кол-во символов. И получается шесть тишч символов. И соответственно делим на шестьдесять четире и сорок восемь и получаца... Блин. ничего не получаца. Тогда используй считалку, может поможет. Шанс один к четирем. Удачи.