Var s:string;
ch:char;
n,i,j,err:integer;
begin
readln(n);
str(n,s);
for i := 1 to length(s)-1 do
for j := 1 to length(s)-i do
if s[j] > s[j+1] then begin
ch:=s[j];
s[j]:=s[j+1];
s[j+1]:=ch;
end;
val(s,j,err);
j*=9;
str(j,s);
n:=0;
for i:=1 to length(s) do begin
val(s[i],j,err);
n+=j;
end;
writeln(n);
<span>end.</span>

0 0

4 года назад

Что не относится к системе мгновенного обмена сообщениями А) WhatsApp Б)ICQ В)Viber Г)Dr.Web

StSGV

Не относится к системе мгновенного обмена сообщениями : г) Dr.Web
это антивирус

0 0

4 года назад

Дан массив из 100 целых чисел и найти сумму элементов массива

Зиночка-З [3]

Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.

0 0

4 года назад

В классе 30 учеников, и все ходят в спортивные секции. 15 человек ходят в футбольную секцию, 10 в баскетбольную, и 18 в волейбол

Nastyshe4ka [21]

Ответ 14 с помощью кругов эйлера

0 0

5 лет назад