Задано натуральное четырехзначное число. Получить из его цифр все возможные двузначные...

Question

Задано натуральное четырехзначное число. Получить из его цифр все возможные двузначные числа
Pascal, решите пжл

Comments

каким способом требуется получить двузначные числа из цифр? сложение, умножение, вычитание, деление?

---

Сложением

Answer 1

Var a,b,k,l,m,n:integer;
begin
readln(a);
b:=a;
n:=a mod 10;
k:=a div 1000;
l:=(a mod 1000) div 100;
m:=(a mod 100) div 10;
writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n);
end.

Comments

спасибо

---

незачто)