Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
10. Подставляем значения переменных х1, х2, х3, х4 во все функции и получается, что подходит только 4 функция.
Ответ: 4
11. Также можно подставить все данные числа в функцию, и только при х=8 значение функции равно 0.
Ответ: 4.
12. ГВБА
А 93 в какой системе счисления?
Ноутбук больше чем нетбук
Нетбук более удобный всмысле объема
Если имеется в виду написать алгоритмом, то вот код на Pascal:
var x: integer;
x := sqrt(9 - 2 * sqrt(20)) - sqrt(9 + 2 * sqrt(20));