Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Помогите решить задачу

Страницы: 1
Помогите решить задачу
#1
21.01.2011 04:28:11
Использовать процедуру нахождения суммы цифр натурального числа ,каждого из трех чисел больше? задача решается через паскаль !!! помогите пожалуйста кто сможет буду презнателен!!!
 
 
#2
23.01.2011 17:08:46
Ну сумму-то чисел еще можно найти. Но вот что такое "каждого из трех чисел больше"? Может не правильно написали или не дописали условие задачи?
 
 
#3
08.02.2011 23:51:14
Я тоже что-то не понял что он хотел сказать.
 
 
#4
10.02.2011 17:10:17
хм непонятно, ну напишу хотя бы процедуру нахождения суммы цифр натурального числа.
странно что не функция, ну да ладно...
Код
procedure sum(x:integer);
var summa:integer;
temp:integer;
begin
  temp:=x;
  while(temp>0) do
  begin
     summa:=summa+ (temp mod 10);
     temp:=temp div 10;
  end;
  writeln('summa: ',summa);
end;


каждого из трех чисел больше... хм
ну напишу прогу которая из трех чисел выбирает число с наибольшей суммой =)

Код

program telepathy; 

var 
number:integer; 
sumOfDigits:integer; 
max:integer; 
maxSum:integer; 
i:integer; 

function sum(x:integer):integer; 
var summa:integer; 
temp:integer; 
begin 
  temp:=x; 
  while(temp>0) do 
  begin 
     summa:=summa+temp mod 10; 
     temp:=temp div 10; 
  end; 
  sum:=summa; 
end; 

begin 

maxSum:=0; 
writeln('Введите три числа: ');
for i:=1 to 3 do
begin
   readln(number);
   sumOfDigits:=sum(number);
   if sumOfDigits>maxSum then
      begin
         maxSum:=sumOfDigits;
         max:=number;
      end;
end;

writeln('number with maximum sum of digits is: ', max);
readln

end.
Изменено: rozpants - 10.02.2011 17:15:31
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)