Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта
Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>
1)
ввод(а)
ввод(б)
р=2*(а+б)
вывод(р)
2)
40 div 6 = 6
40 mod 6 = 4
3 div 5 = 0
3 mod 5 = 3
500 div 10 = 50
37 div 10 = 3
23 mod 5 = 3
37 mod 10 = 7
23 div 5 = 4
80 div 6 = 13
80 mod 6 = 2
500 mod 10 = 1
6 div 4 = 1
6 div 4 +5= 6
35 mod (6 div 4 +5)= 5
35 mod (6 div 4 +5) -10= -5