Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 22.11.2009, 21:18   #1
Sparky
Профессионал
 
Аватар для Sparky
 
Регистрация: 15.05.2009
Адрес: Пермь
Сообщений: 1,222
Репутация: 674

icq: 437149801
skype: Ustyugova1990
По умолчанию вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m

Ребята помогите
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m
вот код:
Код:
program ex;
var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);
  h:=0;
  for i:=1 to n-1 do
   begin
        j:=i;
       while j>0 do
             begin
               k:=j mod 10;
               j:=j div 10;
               h:=h+k;
             end;
      if h*h=m then
  writeln(h);
  end;
  readln;
end.
Что не так???
__________________
Единственное, что ограничивает полет мысли программиста-компилятор
Sparky вне форума   Ответить с цитированием
Старый 22.11.2009, 22:45   #2
Chudo4258
Участник клуба
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Адрес: Пермь
Сообщений: 622
Репутация: 62

icq: 594492371
По умолчанию

Код:
program ex;
var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);
  h:=0;
  for i:=1 to n-1 do
   begin
        j:=i;
        h:=0;
       while j<>0 do
             begin
               k:=j mod 10;
               j:=j div 10;
               h:=h+k;
             end;
      if h*h=m then
  writeln(h);
  end;
  readln;
end.
Chudo4258 вне форума   Ответить с цитированием
Старый 22.11.2009, 22:59   #3
dr.Chas
***
СуперМодератор
 
Аватар для dr.Chas
 
Регистрация: 30.07.2007
Адрес: Самарская область г. Похвистнево
Сообщений: 1,153
Репутация: 890
По умолчанию

Код:
var n,m,k,i,h,j:integer;
begin
  repeat
     write('Vvedite 2 naturalnix chisla: ');
     readln(n,m);
  until (n>0) and (m>0);

  for i:=10 to n-1 do
  begin
      j:=i;  h:=0;
      while j>0 do
      begin
        k:=j mod 10;
        j:=j div 10;
        h:=h+k;
      end;
      if (h*h=m) then
      writeln(i);
  end;
  readln;
end.
dr.Chas вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа n,p, целые числа a1 , ... ,an. Наталья111 Фриланс 10 09.11.2010 21:09
Как перебрать все числа из заданных цифр, чтобы цифры в числах не повторялись? TwiX Общие вопросы Delphi 7 17.08.2009 16:56
Даны натуральные числа m,n. Посчитать сумму m последнего числа n. лялька Паскаль 6 25.12.2008 16:22
Найти все целые числа,у которых ровно 6 делителей; jenja Общие вопросы C/C++ 3 03.10.2008 20:32


22:35.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.