25 это же легко 1 класс 50-25=25)))
Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>
Ответ:Готово
Объяснение:
а)1010 = 24*1 + 23*0 + 22*1 + 21*0 + 20* = 16 + 0 + 4 + 0 + 0 = 20
110 = 22*1 + 21*1 + 20*0 = 4 + 2 + 0 = 6
20 x 6 = 120
Б)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
101 = 22*1 + 21*0 + 20*1 = 4 + 0 + 1 = 5
14 x 5 = 70
в)1110 = 23*1 + 22*1 + 21*1 + 20*0 = 8 + 4 + 2 + 0 = 14
111 = 22*1 + 21*1 + 20*1 = 4 + 2 + 1 = 7
14 x 7 = 98
Думаю, понятно, да? Просто тусклый свет и тырыпыры.