Program enot; Var a: array [1..5] of integer; i,min,c:integer; begin for i:= 1 to 5 do read (a[i]);min:=a[1]; for i:= 2 to 5 do if a[i]<min then begin if i<>5 then begin min:= a[i]; c:=a[i-1]*a[i+1]; end else c:=0; end; write(c); end.
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.
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.
Var a: array [1..5] of integer;
i,min,c:integer;
begin
for i:= 1 to 5 do read (a[i]);min:=a[1];
for i:= 2 to 5 do
if a[i]<min then begin
if i<>5 then begin
min:= a[i];
c:=a[i-1]*a[i+1];
end
else c:=0;
end;
write(c);
end.