Var
a,b:integer;
begin
writeln('vvedite chislo 1');
readln(a);
writeln('vvedite chislo 2');
readln(b);
if a < b then writeln(a) else writeln(b); end.
A1, a2, a3, a4, a5,в конце концов 0=an
Ответ: <span>составная часть презентации,содержащая различные объекты,называется слайд
</span>
Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,'G:\2015\12\input.txt');reset(t);
while not eof(t) do begin
i:= i + 1;readln(t,b[i]);
writeln(b[i]); end;close(t);
assign(t,'G:\2015\12\output.txt');
assign(t1,'G:\2015\12\output1.txt');
Rewrite(t);Rewrite(t1);
for j:=1 to i do
if b[j] > 0 then
writeln(t,b[j])
else
writeln(t1,b[j]);
close(t);close(t1);<span>end.</span>
Var k,i,m,j:integer;
begin
k:=0;
for i:=10000 to 99999 do
begin
m:=0;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then m:=m+1;
if m=0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 8363