Определите и напишите, что будет выведено в результате выполнения следующего фрагмента программы, если - id1022889020221201 от Miya5koka 01.12.2022 07:18

Question

Информатика: Определите и напишите, что будет выведено в результате выполнения следующего фрагмента программы, если одномерный массив имеет следующие значения: 12, 15, 17, 15, 14, 12, 10, 13, 14, 15: m : = 0; for k : = 1 to 10 do if dat[k] m then begin m : = dat[k]; end; writeln(m);

Miya5koka · 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 ответил