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

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

26.06.2018, 10:50. Просмотров 1049. Ответов 2
Метки нет (Все метки)

Найти все двузначные числа, сумма квадратов цифр которых кратна 4. (написать программу. ) с заголовком ошибься, извините
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2018, 10:50
Ответы с готовыми решениями:

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

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

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

Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9
прогу надобно)))

2
34 / 34 / 45
Регистрация: 26.10.2016
Сообщений: 85
26.06.2018, 11:18 2
Лучший ответ Сообщение было отмечено LennieDiaz как решение

Решение

Вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program two_digit_numbers;
 
var i: integer;
 
BEGIN
  for i := 10 to 99 do
  begin
    if (sqr(i div 10)+sqr(i mod 10)) mod 4 = 0 then
      write(i,' ');
  end;
END.
0
Модератор
7469 / 3830 / 2721
Регистрация: 17.08.2012
Сообщений: 12,241
27.06.2018, 01:05 3
AndrewBeletskiy, лишние операторные скобки (begin..end).

Если немного подумать, можно количество итераций уменьшить с 89 до 20, и заодно избавиться от ненужных if, sqr, mod и div:
Pascal
1
2
3
4
5
6
7
8
var
  i, j: integer;
 
begin
  for i := 1 to 4 do
    for j := 0 to 4 do
      write(2 * (10 * i + j) :3)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2018, 01:05

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

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

Найти все двузначные числа сумму квадратов которых делятся на 11
не понимаю совсем помогите плз(

Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
1) Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа ...

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


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

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

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