1) найти сумму цифр 3-х значного числа.
2) дано 2-х значное число, нужно его развернуть и сложить результат с исходным числом (пример: число 82. 82+28=110)
стелайте пожалуйста такой таблицей в столбик со стрелочками
Ответы
Ответ дал:
0
var
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.
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.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад