1) найти сумму цифр 3-х значного числа. 2) дано 2-х значное число, нужно его развернуть и сложить результат с исходным числом (пример: число 82. 82+28=110) стелайте такой таблицей в столбик со стрелочками
begin write('Введите трехзначное число: '); readln(N); t3 := N mod 10; N := N div 10; t2 := N mod 10; t1 := N div 10; writeln('Сумма цифр: ', t1 + t2 + t3); end.
var n,y:integer;
begin readln(n); y:=(n mod 10)*10 + n div 10; writeln(n.ToString+'+'+y.ToString+'='+(n+y)) end.
rodin4010
20.03.2021
Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!
gbfedak220
20.03.2021
Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком.
N: word;
t1, t2, t3: byte;
begin
write('Введите трехзначное число: ');
readln(N);
t3 := N mod 10;
N := N div 10;
t2 := N mod 10;
t1 := N div 10;
writeln('Сумма цифр: ', t1 + t2 + t3);
end.
var
n,y:integer;
begin
readln(n);
y:=(n mod 10)*10 + n div 10;
writeln(n.ToString+'+'+y.ToString+'='+(n+y))
end.