Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.09.2017
Сообщений: 9
1

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15

03.10.2017, 12:33. Просмотров 2025. Ответов 3
Метки нет (Все метки)

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15. ЧЕРЕЗ REPEAT
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2017, 12:33
Ответы с готовыми решениями:

Найти все двузначные числа, сумма квадратов цифр которых кратна 4
Найти все двузначные числа, сумма квадратов цифр которых кратна 4. (написать программу. ) с...

Найти все двузначные числа, сумма квадратов цифр которых кратна 5
Найти все двузначные числа, сумма квадратов цифр которых кратна 5.

Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m
Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна заданному числу m....

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

3
Модератор
60563 / 45560 / 31444
Регистрация: 18.05.2008
Сообщений: 109,506
03.10.2017, 12:54 2
Вообще таких чисел нет,но если хочется, то пишите.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var i,k:byte;
begin
i:=10;
k:=0;
repeat
if sqr(i div 10)+sqr(i mod 10)=15 then
 begin
  write(i:3);
  k:=1;
 end;
inc(i);
until i>99;
if k=0 then write('Таких чисел нет')
end.
Добавлено через 5 минут
Пардон, неверно прочитал задание, замените строку 6 на
Pascal
1
if (sqr(i div 10)+sqr(i mod 10))mod 15=0 then
Добавлено через 4 минуты
Для красоты строку 8 можно заменить на
Pascal
1
writeln('i=',i,'>-(',i div 10,'^2+',i mod 10,'^2=',sqr(i div 10)+sqr(i mod 10),':15=0');
0
Модератор
7469 / 3830 / 2721
Регистрация: 17.08.2012
Сообщений: 12,241
03.10.2017, 13:07 3
Вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i, j: integer;
begin
  i := 1;
  repeat
    j := 0;
    repeat
      if (i * i + j * j) mod 15 = 0 then writeln(i, j);
      inc(j)
    until j > 9;
    inc(i)
  until i > 9
end.
0
Alvin Seville
328 / 261 / 131
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
04.10.2017, 18:21 4
Pascal
1
2
3
4
5
6
7
8
begin
  var A := 10;
  repeat
    if (Sqr(A mod 10) + Sqr(A div 10)) mod 15 = 0 then
      Writeln(A);
    Inc(A);
  until A >= 100
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2017, 18:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти все двузначные числа, сумма квадратов цифр которых кратна М
Найти все двузначные числа, сумма квадратов цифр которых кратна М.

Найти все двузначные числа, сумма квадратов цифр которых кратна числу 5
Найти все двузначные числа, сумма квадратов цифр которых кратна числу 5

Найти все двузначные числа, сумма квадратов цифр которых кратна числу M
вот:-[ Найти все двузначные числа, сумма квадратов цифр которых кратна числу M, введенному...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.