Bamath
5 год назад
ДАЮ 25 поинтов!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! Задание. Дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел. ПОЖАЛУЙСТА!!!!!!!!!!
ОТВЕТЫ
Камелия
Oct 24, 2020
var x,x1,x2:integer;
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.
Пример:
516
165 651
1332
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.
Пример:
516
165 651
1332
12
Смежные вопросы:
