Задание:
Дано натуральное число n. Найти сумму первой и последней цифры этого числа
Решение:
Возможно, не самое рациональное решение, но все же.Program n1; Uses CRT; Var n,k,ch,i,l,a,b,s: integer; beginClrScr; Writeln ('Vvedite n'); Readln (n); l: =n; Repeatk: =k+1; n: =n div 10; Until n=0; ch: =1; For i: =2 to k doch: =10*ch; a: =l div ch; b: =l mod 10; write (a+b); readlnend.
Знаете другой ответ?