Ответ: а=9
Решение:
1) b=2 a=3, подставим: b=9+3*2=15
2) теперь у b новое значение, а не изменилось: b=15 a=3, подставим: a=15/5*3=9
3) у a теперь новое значение: а=9
1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
Возможно, тебе это поможет.
Вариант сложения чисел в Паскале
1 задание
101011 + 101001 = 43+41 (перевел в десятичную) =84 в десятичной или 1010100 в десятичной
тоже сделаем с вычитанием
10101111-111111 = 175-63=112 или 1110000
2 задание
переведем все числа в десятичную систему
1010101 = 85
59(16) = 89
130(8) = 88
86(10) = 86 уже в десятичной
Ответ: 1010101, 86(10), 130(8), 59(16)
Задание 3
1. числа 160 не может быть в 4 степени, проверьте может опечатались.
2. 402(6)=146(10) < 400(8)=256(10)
3. 78(16)=120(10) < 167(8)=119(10)
1. Рассмотрим вариант построения числа 1715 при условии a+b=17, b+c=15.
Число 17 можно получить только двумя способами: 9+8=17 и 8+9=17.
Отсюда получаем два варианта: (a=9; b=8) и (a=8; b=9). (1)
Число 15 можно получить тоже двумя способами, полагая, что одно из слагаемых (b) равно 8 или 9: 9+6 и 8+7, что тоже дает два варианта: (b=9; c=6) и (b=8; c=7). (2)
Объединяя (1) и (2) получаем (a=9; b=8; c=7) и (a=8; b=9; c=6), т.е. у нас по-прежнему есть два варианта решения.
2. Теперь рассмотрим вариант построения числа 1715 при условии a+b=15, b+c=17 и упорядочения 17, 15 по убыванию. Легко видеть, что решение будет "симметричным": (a=7; b=8; c=9) и (a=6; b=9; c=8) и это также даст нам два варианта.
3. Объединяя результат получаем, что всего имеется четыре решения, т.е. четыре числа (698, 789, 896, 987).
<u><em>Ответ:</em></u> 4 числа.
<em><u>Проверка решения программным путем (Borland Pascal 7.0)</u></em>
uses Crt;
var
a,b,c,ab,bc,t,k:byte;
s1,s2:string;
begin
ClrScr;
k:=0;
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
begin
ab:=a+b; bc:=b+c;
if ab<bc then begin t:=ab; ab:=bc; bc:=t end;
Str(ab,s1); Str(bc,s2);
if s1+s2='1715' then begin WriteLn(a,b,c); Inc(k) end
end;
Writeln('kol-vo=',k);
ReadKey
end.
<em><u>Результат выполнения программы:</u></em>
698
789
896
987
kol-vo=4
