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