Синформатикой: дано двухзначное случайное число.определите, является ли сумма его цифр меньше либо равной 10. (нужно написать программу)

Program ex;
uses crt;
var N, sum: integer;
begin 
 read(N); 
 sum:=0; 
 while N > 0 do 
 begin 
  sum:= sum + N mod 10; 
  N:= N div 10;
  end;  if sum < 10 then 
  print('Yes!')  else 
  print('No!'); 
 end.

41 байт

Объяснение:

Данные на карте = Код + Номер + Доп.Информация (25 байт)

Код: (1 код содержит 15 знаков)

Включает латинские буквы (большие и строчные) = 26×2, десятичные цифры = 10, и особые знаки из комплекта @#$%^&*() = 9

N = 26 × 2 + 10 + 9 = 72

N = 2^i

64 < 72 < 128

2^6 < 72 < 2^7 (берём большее)

i = 7 бит

1 код = 15 × 7 = 105 бит = 105 ÷ 8 = 13,125 (округляем в большую сторону) = 14 байт

Номер:

N = 1000

512 < 1000 < 1024

i = 10 бит

1 номер = 10 ÷ 8 = 1,25 (округляем в большую сторону) = 2 байта

Данные на карте = 14 байт (код) + 2 байта (номер) + 25 байт (доп.инф.) = 41 байт

ответ: 41 байт

===== PascalABC.NET =====

function НОД(a, b: integer): integer;

begin

 (a, b) := (Abs(a), Abs(b));

 while b <> 0 do

   (a, b) := (b, a mod b);

 Result := a

end;

function Подходит(a, b: integer) :=

   (Sign(a) = Sign(b)) and (b <> 0);

procedure СократитьДробь(var a, b: integer);

begin

 var d := НОД(a, b);

 if d > 1 then

   (a, b) := (a div d, b div d)

end;

begin

 Println('Введите соотношения металлов в сплаве.');

 Println('Числа частей целые и вводятся через пробел.');

 var (a1, b1) := ReadInteger2('Первый сплав:');

 var (a2, b2) := ReadInteger2('Второй сплав:');;

 var (a3, b3) := ReadInteger2('Нужный сплав:');;

 var y1 := (a2 + b2) * (a1 * b3 - b1 * a3);

 var y2 := a1 * b2 - a2 * b1;

 if not Подходит(y1, y2) then

 begin

   Println('Решения нет');

   exit

 end;

 var x1 := (a3 + b3) * y2 - y1;

 var x2 := y2;

 if not Подходит(x1, x2) then

 begin

   Println('Решения нет');

   exit

 end;

 СократитьДробь(y1, y2);

 СократитьДробь(x1, x2);

 var (r1, r2) := (x1 * y2, x2 * y1);

 СократитьДробь(r1, r2);

 var v := ReadReal('Требуемый объем сплава:');

 Writeln('Соотношение частей металла ', r1, ' : ', r2);

 Writeln('Соотношение объемов: ', v * r1 / (r1 + r2),

     ' : ', v * r2 / (r1 + r2))

end.