
Дорофеевич
5 год назад
1) найти сумму цифр 3-х значного числа.2) дано 2-х значное число, нужно его развернуть и сложить результат с исходным числом (пример: число 82.82+28=110)стелайте пожалуйста такой таблицей в столбик со стрелочками
ОТВЕТЫ

Eleonora
Oct 24, 2020
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.
334
Смежные вопросы: