var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.
1) 136:4+х=257
39+х=257
х=218
2) а+884:4=570
а+221=570
а=349
3) у-125:5=800
у-25=800
у=825
4) 147:7×в=210
21в=210
в=10
Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 402</span>
Нужно скачать и установить SeaMonkey И все получится.
Результат перевода числа<span> 138 </span>
<span>из десятичной в двоичную систему счисления: </span>
<span>10001010.
Или это не методом разности? </span>