Друга ищи, а найдешь - береги
Старый друг лучше новых двух
На самом деле не всегда. Только в тех системах программирования, где элементы двухмерного массива хранятся построчно. Некоторое ускорение выборки данных связано с тем, что при этом проще вычисляется номер элемента в одномерной последовательности элементов, интерпретируемой системой программирвания как двухмерный массив.
Если же элементы двухмерного массива хранятся по столбцам, то и обходить его быстрее по столбцам.
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Ответ: 4. Но т.к. тут надо минимум 20 символов, вот интересный факт: <span>Кошки эволюционировали в отдельную семью (Felidae) примерно 25 миллионов лет назад. С тех пор они распространялись по всему миру и менялись, чтобы соответствовать своей среде обитания. </span>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++