350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Program Valerya;
uses CRT;
car a, b, c, d:integer;
begin
a := 3;
b := 2;
c := 5;
d := 7;
if a – b < 0
then if d < c
then if d < 0
then a := b
else
else a := d
else d := c;
writeln(d);
end.
это программа.
а значение d=5
Program sneg;
uses graphABC;
beginsetpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
<span>end.</span>
Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
