Вводим значение а=16.
Далее: "если а- четное, то делим его пополам". У нас 16 - четное, поэтому делим пополам и получаем 8. Это и есть ответ.
<u><em>Ответ:</em></u> 8
Результат вычисления выражения = 6973568564
В 3-ричной системе = 122222222222222200012
Кол-во цифр 2 = 16
2∙9^10 – 3^5 + 5 = 2∙3^20 - 3^5 + 3^1 + 2
2∙3^20 - 3^5 (3)= 122222222222222200000 : 20-5 = 15 двоек
+ 2 - дает еще одну двойку
Ответ 15+1 = 16
Var a, b, c, S1, fin: integer;
S1 := edit1.text;
a := copy(S1,1,1);
b := copy(S1,2,1);
c := copy(S1,3,1);
fin := a + b + c;
edit2.text := fin;
На нажатие кнопки добавить код.
Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.