<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.
ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Компьютер -5
Телефон-3
Часы - 7
на си(с++)
#include<iostream.h>
void main(){
int a;
int x;
cin>>x;//число на которое должно закончитьс
cin>>a;//число которое вводишь
int b,c,d;
b=a%1000;//остаток от деления на 1000
d=b%100;//остаток от остатка деления на 100
c=d%10;//само число
if (c==x) cout<<"Верно";else cout<<"Не верно";
}
если на паскале тольок вместо % ставите mod и вместо cout write
и в скобках а так в принципе все