//PascalABC.Net 3.2
begin
var n:=readinteger('Число апельсинов: ')*150;
var m:=readinteger('Число яблок: ')*100;
if m=n then write('Что угодно') else
if m>n then write('Лучше взять яблоки') else write('Лучше взять апельсины');
end.
A:= (присваивает значение )2+2=4
Т.к x=2
a:=4*4 =16
Т.к а присвоило значение 4 после операции 2+2
а:=а-х (16-2)=14
а:=а*а/х (14*14/2) = 98
Ответ: а=98
Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('********************************');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.
насколько я поняла тут основываются на количестве слогов в слове
:112331
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей