begin cls; readln(n); for i:=1 to n do begin readln(ch); a:=ch div 1000; //1 b:=ch mod 10; //4 c:=(ch div 100) mod 10; //2 d:=(ch div 10) mod 10; //3 if ((a+b)=(c+d)) then writeln('Chislo podhodiv = ',ch) else writeln('Chislo ne podhodiv = ',ch); end; readln; end.
#for x in range(4): # r.right(1) # for y in range(4): # r.right(2) # r.right(3)
Рассмотрим внутренний цикл. Для каждого у от 1 до 4, робот делает 2 шага вправо, а затем 3 вправо. То есть за весь этот цикл робот сделает (2 + 3) * 4 = 5 * 4 = 20 шагов вправо. Теперь рассмотрим внешний цикл. Для каждого х от 1 до 4, робот делает 1 шаг вправо и ещё 20 шагов вправо за счет того цикла, который мы уже разобрали. Значит всего робот сделает (1 + 20) * 4 = 21 * 4 = 84 шага вправо. ответ: 84 шага.
var a, b, c,d,ch,n,i: integer;
begin
cls;
readln(n);
for i:=1 to n do
begin
readln(ch);
a:=ch div 1000; //1
b:=ch mod 10; //4
c:=(ch div 100) mod 10; //2
d:=(ch div 10) mod 10; //3
if ((a+b)=(c+d)) then
writeln('Chislo podhodiv = ',ch)
else
writeln('Chislo ne podhodiv = ',ch);
end;
readln;
end.