0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 14
1

Среди натуральных трехзначных чисел найти те, сумма квадратов цифр которых делится на А, а само число делится на А+1

30.05.2012, 21:14. Показов 6931. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите решить, вот как я пытался решить, но что-то не правильно(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var x,i,y,z,k,a:integer;
begin
 write('Введите А ');
 readln(a);
 for i :=100 to 999 do
   begin
    x:= i div 10;
    y:= i div 10 mod 10;
    z:= i mod 10;
    k:= x*x+y*y+z*z;
    if (k mod a=0) and (k mod a+1=0) then
    begin
      write(i:4);
    end;
   end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 21:14
Ответы с готовыми решениями:

Среди трехзначных чисел найти те, сумма цифр которых равна n (2<n<10) и число делится без остатка на число q
Среди трехзначных чисел найти те, сумма цифр которых равна n (2&lt;n&lt;10) и число делится без остатка...

Среди трехзначных чисел найти те, сумма цифр которых делится на 9
Среди трехзначных чисел найти те, сумма цифр которых делится на 9. И объясните,пожалуйста

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Основные алгоритмические конструкции. Проверка условий. Циклы с параметром. Оператор выбора. ...

Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13
Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13. (Помогите, пожалуйста)

6
155 / 97 / 101
Регистрация: 25.02.2012
Сообщений: 232
30.05.2012, 21:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a, i, j, s: integer;
 
begin
  writeln('Введите ''a'':');
  readln(a);
  for i := 100 to 999 do 
  begin
    j := i; s := 0;
    while j <> 0 do 
    begin
      s := s + sqr(j mod 10);
      j := j div 10;
    end;
    if (s mod a = 0) and (i mod (a + 1) = 0) then write(i:6)
  end;
  readln
end.
0
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 14
31.05.2012, 15:29  [ТС] 3
TheSN, спасибо за помощь, но она не работает(
0
155 / 97 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 15:33 4
Что вводим (а), что выводится в ответ и что должно быть?
Например, я ввожу а=10. Выводится число 550, которое полностью удовлетворяет условию задачи. (550/11), ((5*5+5*5)/10).
1
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 14
31.05.2012, 16:04  [ТС] 5
TheSN, что то я не понял цикл while и присваивания j и s
0
155 / 97 / 101
Регистрация: 25.02.2012
Сообщений: 232
31.05.2012, 16:09 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a, i, j, s: integer;
 
begin
  writeln('Введите ''a'':');
  readln(a);
  for i := 100 to 999 do  // проверяем все трехзначные числа
  begin
    j := i; s := 0; // мы не можем напрямую работать со счетчиком i, а сумма квадратов цифр должна при работе с КАЖДЫМ НОВЫМ числом обнуляться
    while j <> 0 do // пока все цифры не будут удалены
    begin
      s := s + sqr(j mod 10); // прибавляем к сумме квадрат последней цифры
      j := j div 10;  // удаляем последнюю цифру
    end;
    if (s mod a = 0) and (i mod (a + 1) = 0) then write(i:6) // проверка условия задачи
  end;
  readln
end.
1
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 14
31.05.2012, 16:13  [ТС] 7
TheSN, спасибо большое)
0
31.05.2012, 16:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2012, 16:13
Помогаю со студенческими работами здесь

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Не знаю как дописать основную часть программы #include &lt;iostream&gt; #include &lt;cmath&gt; #include...

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
2.Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Добрый день,подскажите пожалуйста код к заданию в Delphi: Среди двузначных чисел найти те, сумма...

Среди двухзначных чисел вывести те, сумма квадратов цифр которых делится на 13
Среди двухзначных чисел вывести те, сумма квадратов цифр которых делится на 13.

Среди двухзначных чисел найдите те, сумма квадратов цифр которых делится на 13
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делится на 13. на Lisp

Среди двухзначных чисел найдите те, сумма квадратов цифр которых делится на 13
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делится на 13. Я написал код,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru