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

pascal цикл while или repeat

Question

Информатика

Агна

12 октября, 18:51

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

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