Cntrl зажимаешь и выбираешь фигуру Круг и тянешь и он будет идеально ровный
Переменные: number,a,b,c,max,counter тип целочисленный
<h3><em>Начало</em></h3>
Ввод значения number
a = number целочисленное деление на 100
b = (number целочисленное деление на 10) остаток от деления на 10
c = number остаток от деления на 10
если (a больше b) и (a больше c) то
max = a
если (b больше a) и (b больше c) то
max = b
если (c больше b) и (c больше a) то
max = c
если a = max то
counter = counter + 1
если b = max то
counter = counter + 1
если c = max то
counter = counter + 1
Вывод значения counter
<h3><em>Конец</em></h3>
Var a:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.
<span>Вместо значков импликации порядок действий.
Сначала выполняются действия 1, порядок выполнения не важен,
затем действия 2, затем действие 3.
(A 2 (B 1 C)) 3 ((A 1 B) 2 (A 1 C))</span>
1. В десятичную
63=99
8С=140
143=99
214=140
100001001=265
2. В восьмиричную
113=161
94=136
3. В двоичную
299=100101011
338=101010010
400=110010000
4. В 16-ричную
194=С2
11=6F
100=64
П.С. Напиши только системы счисления :)