Question

Дано двухзначное число. Найдите сумму цифр этого числа. Значение двухзначного числа вводится с клавиатуры с помощью программ PascalABC.Тема Реализация алгоритмов работы с целочисленными данными.

Answer 1

Ответ:

program Integer7;

var   A, Res: Integer;

begin  

Write('Введите двузначное число: ');

Readln(A);  

Res:=(A div 10) + (A mod 10);  

Writeln('Сумма его цифр равна: ',Res);  

Res:=(A div 10) * (A mod 10);  

Writeln('Произведение его цифр равно: ',Res);

end.