сервис вопросов и ответовСреди всех натуральных четырёхзначных чисел подсчитать количество таких,сумма квадратов цифр,которых кратна двум и трём.Ответ пожалуйста целым числом.
10-11 класс|
|
22dogdog
10 апр. 2015 г., 17:59:44 (9 лет назад)
Помогитеft
10 апр. 2015 г., 19:29:05 (9 лет назад)
Program zadacha;
VAR
i, t, s, d, o, k: Integer;
Begin
k:=0;
For i:=1000 to 9999 do begin
t:=i div 1000;
s:=(i div 100) mod 10;
d:=(i div 10) mod 10;
o:=i mod 10;
if ((t*t + s*s + d*d + o*o) mod 2 = 0) and ((t*t + s*s + d*d + o*o) mod 3 = 0) then
k:=k+1;
end;
writeln(k);
End.
ответ будет:
Ответить
Другие вопросы из категории
Написать текст,в котором было бы 5 абзацев,не менее 5 тире,римские цифры, ковычки и скобки...
(Не большой текст)
Два шпиона вели переписку и одному из шпионов возникла необходимость сообщить номер своего телефона состоящий из 11 цифр, тогда он написал сообщение: В
мой день рождения, собрались все наши друзья и мы играли в игру числа Фибаначчи.
Написать номер телефона первого шпиона.
Очевидно что:
1) первоклассник, семиклассник и ученик 11 класса получают разную информацию из вашего учебника информатики;
2) каждый из семиклассников, работая с одним и тем же учебником, получает разное кол-во информации.
Как вы можете это объяснить?
Читайте также
Язык "Паскаль АВС" 1.Среди двухзначных чисел найти количество четных чисел. 2. Среди двухзначных чисел найдите те числа, у которых первая цифра четная.
3. Среди двухзначных чисел найдите те числа, которые кратны 3 и 4. 4. Среди трехзначных чисел найдите те, у которых все цифры равны. 5. Найдите среди трехзначных чисел симметричные числа. 6. Найдите среди четырехзначных чисел симметричные числа. 7. Найдите все трехзначные числа такие, что сумма цифр равна А, а само число делится на В. А и В вводятся с клавиатуры. 8. Найдите все трехзначные числа такие, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. 9. Найдите количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается на В, А и В вводятся с клавиатуры. 10. Найдите все трехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. 11.Найдите все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3-остаток 2, при делении на 4-остаток 3, само число делится на5. 12. Найдите все четырехзначные числа, в которых есть две одинаковые цифры. 13. Найдите сумму всех чисел из промежутка от А до В, кратных 13 и 5, А и В вводятся с клавиатуры. 14. Найдите все симметричные четырехзначные числа. 15.Найдите все трехзначные числа, которые состоят из различных цифр, а их сумма равна А.
Задача в паскале среди 10 введенных с клавиатуры чисел подсчитать количество отрицательных и произведение положительных чисел рассмотреть случай когда
положительных чисел нет
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Вы находитесь на странице вопроса "Среди всех натуральных четырёхзначных чисел подсчитать количество таких,сумма квадратов цифр,которых кратна двум и трём.Ответ пожалуйста целым числом.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.