Напишите программу, которая вычисляет сумму цифр введенного двухзначного числа. (Pascal)

16 Ноя 2021 в 19:43
189 +1
0
Ответы
1

program SumDigits;

var
num, tens, ones, sum: Integer;

begin
writeln′Enteratwo−digitnumber:′'Enter a two-digit number: 'Enteratwodigitnumber:;
readlnnumnumnum;

if (num < 10) or (num > 99) then
writeln′Pleaseenteratwo−digitnumber.′'Please enter a two-digit number.'Pleaseenteratwodigitnumber. else
begin
tens := num div 10;
ones := num mod 10;
sum := tens + ones;

writeln′Thesumofthedigitsin′,num,′is′,sum'The sum of the digits in ', num, ' is ', sumThesumofthedigitsin,num,is,sum;

end;
end.

17 Апр 2024 в 08:42
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир