1. 

   Alika New Member

   Решить задачу Дано пятизначное число из интервала [10000, 32767]. Найти сумму первой, второй и пятой цифр этого числа.

    

   Alika, 13 фев 2010

   #1
2. 

   Zmey_Zloy New Member

   var
   n,s:integer;
   begin
   repeat
   write ('N = ');readln(n);
   until (n>=10000) and (n<=32767);
   s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
   writeln ('Summa: ',s);
   readln;
   end.

    

   Zmey_Zloy, 13 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня