Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>
P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.
Ответ:
М = 40
К = 6
Таблицу смотри на картинке
Да, как ни странно, образованным человеком в Китае мог считаться только тот, кто умел писать иероглифы не просто грамотно, но и красиво. ))))
Представим 135 по основанию х в расширенной записи.
1·x²+3·x+5 = 59
x²+3x-54=0
D=3²-4·1·(-54)=9+216=225; √225=15
x₁=(-3-15)/2 < 0 не подходит
x₂=(-3+15)/2=6
Проверка 6²+3·6+5=36+18+5=59