Задано натуральное четырехзначное число. Получить из его цифр все возможные двузначные числа
Pascal, решите пжл
Ответы на вопрос
Ответил oOkriOo
0
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.
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.
Ответил oOkriOo
0
незачто)
Новые вопросы