Question

Пожалуйста ответьте!
Найти сумму цифр двух целых двухзначных чисел a и b, написав функцию определения цифр в числе. (В паскале)

Answer 1

Відповідь:

Пояснення:

var

 a, b : integer;

 k1, k2 : integer;

function kol (c : integer) : integer;

var t : integer;

begin

 t := 0;

 while c <> 0 do

 begin

   inc(t);

   c := c div 10

 end;

 kol := t

end;

begin

 k1 := 0;

 k2 := 0;

 write('ïåðâîå ÷èñëî: ');

 readln(a);

 write('âòîðîå ÷èñëî: ');

 readln(b);

 k1 := kol(a);

 k2 := kol(b);

 writeln('êîë-âî öèôð â ïåðâîì ÷èñëå: ', k1);

 writeln('êîë-âî öèôð âî âòîðîì ÷èñëå: ', k2)

end.