<h3>Алгоритм решения</h3>
Для каждого из пяти чисел:
Пока число больше нуля, увеличиваем счётчик количества цифр на 1 и прибавляем последнюю цифру к счётчику суммы.
Необходимо учесть, что для K=0 количество цифр C=1.
<h3>Код (Pascal)</h3>
var
x, i, anc, ans: integer;
procedure Sum(k: integer; var c, s: integer);
begin
c := 0;
if k = 0 then c := 1;
s := 0;
while (k > 0) do
begin
c := c + 1;
s := s + (k mod 10);
k := k div 10;
end
end;
begin
for i := 1 to 5 do
begin
read(x);
Sum(x, anc, ans);
writeln(anc, ' ', ans);
end;
end.
-------------------------------------------------
Файл решения прикреплён.
<span>Readln(a,b);
mu:=0;
Repeat
mu:=mu+a;
Dec(b);
Until b=0;
Writeln(mu)<span>;</span></span>
if n mod 2=0 then write('Четное')
else write('Не четное');
var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);
r:=c/(2*pi);
s:=pi*sqr(r);
writeln('ploshad=',s)
end.
Ни первое, ни второе не подойдут, тут даже преобразовывать не надо. Конечно, все самое интересное в длинном выражении. <em>Его преобразование во вложении.</em>
Ответ: 3) <span>(A → B) → ((A → C) → (A → B и C))</span>