Дано натуральное число n. Найти сумму первой и последней цифры этого числа

@Inqu1sItor · Регистрация: 08.06.2012

Author24 — интернет-сервис помощи студентам

6)дано натуральное число n. Найти сумму первой и последней цифры этого числа

@Das Gespenst · 09.06.2012, 02:35

Шестая.

Pascal

program z;
var n,s,a,a1,k,i:integer;
b:array [1..100] of integer;
begin
     writeln('Введите число');
     readln(n);
     a:=n; i:=1; k:=0;
     while a<>0 do
           begin
                a1:=a mod 10;
                b[i]:=a1;
                k:=k+1;
                a1:=a div 10;
                a:=a1;
                i:=i+1;
           end;
     writeln('Цифры числа');
     for i:=1 to k do
         write(b[i],' ');
     s:=b[1]+b[k];
     writeln('Суммы первой и последней цифры',s);
end.

@Inqu1sItor 0 / 0 / 0 Регистрация: 08.06.2012 Сообщений: 8
		1
	Дано натуральное число n. Найти сумму первой и последней цифры этого числа 08.06.2012, 21:08. Показов 13882. Ответов 1 Метки нет (Все метки) 6)дано натуральное число n. Найти сумму первой и последней цифры этого числа 0

	09.06.2012, 02:35

Опции темы

Дано натуральное число n. Найти сумму первой и последней цифры этого числа

Решение