Регистрация
Lusi28
14.07.2022 00:17
Информатика
Есть ответ 👍

решить x=789
a:=x div 100
b: =x mod 100 div 10
c: =x mod 10
s: = a+b+c

118
294
Посмотреть ответы 1

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

svashalol
svashalol
4,5(53 оценок)
//как учили наших var a: array[1..10000] of integer; i,j,n, tmp : integer; begin writeln('введите кол-во элементов в массиве'); readln(n); writeln('введите элеметы массива: '); for i: = 1 to n do   read(a[i]); for i: = 1 to n do   for j: = 1 to n do       if (a[i] < a[j]) then       begin           tmp: =a[i];           a[i]: =a[j];           a[j]: =tmp;       end; for i: = 1 to n do   write(a[i], ' '); end.

Популярно: Информатика