Как вывести на экран значение переменной но так чтоб её значение было слово которое присвоит себе переменная - id658619620200522 от сойдет2 22.05.2020 18:42

Question

Информатика: Как вывести на экран значение переменной но так чтоб её значение было слово которое присвоит себе переменная в дальнейшем

сойдет2 · Accepted Answer

var i,j,k,m: integer;
s: string;
begin
k:=0;
for i:=1 to 1000000 do
begin
s:=IntToStr(i);
m:=0;
for j:=1 to (length(s) div 2) do
if s[j]<>s[length(s)-j+1] then m:=1;
if m=0 then
begin
inc(k); continue;
end;
m:=pos('0',s);
if m>0 then
begin
inc(k); continue;
end;
m:=1;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then
begin
m:=0;
break;
end;
if m=1 then inc(k);
end;
k:=1000000-k;
writeln('осталось чисел: ',k);
end.

осталось чисел: 544011

Как вывести на экран значение переменной но так чтоб её значение было слово которое присвоит себе переменная в дальнейшем

MOGZ ответил