Ввести число. Вычислить сумму первой и последней цифры.

pascal цикл while или repeat

Question

Информатика

Дека

31 декабря, 13:22

Ввести число. Вычислить сумму первой и последней цифры.

pascal цикл while или repeat

+4

Ответы (1)

Знаете ответ?

Филя · Answer 1

Program n1;

var

sum, n: longint;

begin

sum:=0;

write ('введите число: ') ;

readln (n) ;

sum:=n mod 10;

while n>10 do

n:=n div 10;

sum:=sum+n;

writeln ('сумма 1 и последней цифр равна ', sum) ;

end.

Ввести число. Вычислить сумму первой и последней цифры.pascal цикл while или repeat

Ввести число. Вычислить сумму первой и последней цифры.

pascal цикл while или repeat