Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо паскаль)

189

425

Посмотреть ответы 2

Ответы на вопрос:

Sobolev43

Информатика

4,6(41 оценок)

Var j,n,i: longint; a,b: array [1..1000] of integer; begin readln(n); // считываем число i: =1; // начинаем с первого элемента массива while (n> 0) do //пока n больше нуля begin a[i]: =n mod 10; //тем самым выбираем последнюю цифру числа n: =n div 10; // откидываем последнюю цифру i: =i+1; // следующий элемент массива end; // по окончании в массиве a будет храниться наше число только // в обратном порядке i: =i-1; // теперь i равно длине числа +1 поэтому отнимаем 1 for j: =i downto 1 do // с конца массива а до 1 begin b[i-j+1]: =a[j]; // заполняем b в обратном порядке end; //теперь в массиве b хранится наше число в нужном порядке for j: =1 to i do begin write(b[j],' '); end; end.

andrey43201

Информатика

4,4(70 оценок)

Program bi; type tab=array[1..100,1..100] of integer; var n,m,i,j,s: integer; t: tab; begin readln(n); readln(m); for i: =1 to n do for j: =1 to m do readln(t[i][j]); for i: =1 to n do for j: =1 to m do if(t[i][j] mod 2=0) then s: =s+t[i][j]; writeln('mассив: '); for i: =1 to n do begin writeln; for j: =1 to m do write(t[i][j],' '); end; writeln('сумма чётныч чисел ',s); end.