<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span>screen 12
for x=0 to 640 step 5
cls
circle (x,240), 25
circle (x+100,240), 25
line (x+30,240)-(x+70,240)
line (x-50,240)-(x-30,240)
line (x+150,240)-(x+130,240)
line (x+150,240)-(x+150,190)
line (x-50,240)-(x-50,190)
line (x-50,190)-(x-10,190)
line (x+110,190)-(x+150,190)
circle (x+50,190),60 ,, 0 , 3.14
circle (x,240),30 ,, 0 , 3.14
circle (x+100,240),30 ,, 0 , 3.14
next x</span></span>
В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800
Program a;var d:integer;x,y:real;beginreadln(x,y);write('действие: ');readln(d);case(d) of1: x:=x+y;2: x:=x-y;3: x:=x*y;4: x:=x/y;end;write(x);end.
program a;var d:integer;m:real;beginreadln(m);write('единицы: ');readln(d);case(d) of1: write(m,'кг');2:begin m:=m/1000000; write(m,'кг');end;3:begin m:=m/1000; write(m,'кг');end;4:begin m:=m*1000; write(m,'кг');end;5:begin m:=m*100; write(m,'кг');end;end;end.
Вариант 4
<span>вкладку главная, группу Абзац
</span>
обычно выбирают Формат→Абзац
Конечно можно, 1 сторону+ 1 сторону+ 1сторону + 1 сторону