using System;
namespace restless
{
class Program
{
static void Main(string[] args)
{
Random rnd = new Random();
int num = rnd.Next(100, 999);
Console.WriteLine($"Наше сгенерированное число: {num}");
num = Math.Abs(num);
if (num % 10 + (num / 10) % 10 < 10)
Console.WriteLine("Сумма десятков и единиц является однозначным числом");
else
Console.WriteLine("Сумма десятков и единиц не является однозначным числом");
Console.ReadKey();
}
}
}
Var
n,s:integer;
procedure sumforfunclang(n:integer;var s:integer);
begin
if n>0 then
begin
s:=s+n mod 10;
n:=n div 10;
sumforfunclang(n,s);
end;
end;
begin
readln(n);
sumforfunclang(n,s);
writeln(s);
end.
Пример ввода:
34
Пример вывода:
7