Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.
var
l,x,sum:real;
i:integer;
begin
write ('L = ');
readln(l);
write ('X = ');
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln ('Summa: ',sum);
readln;
end.
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.
Ответ:1
Посторим граф/дерево, и то незачем, в первой строчке таблицы ответ
Система счисления бывает позиционной,непозиционной,смешанной.
Система счисления:
<span><span>даёт представления множества чисел (целых и/или вещественных);</span>
даёт каждому числу уникальное представление (или, по крайней мере, стандартное представление);
<span>отражает алгебраическую и арифметическую структуру чисел.
</span></span>
Систе́ма счисле́ния-символический метод записи чисел, представление чисел с помощью письменных знаков.