Информатика | 5 - 9 классы
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13.
Помогите сделать?
Помогите сделать.
Среди двухзначных чисел найти те, сумма квадратов цифр которых делится на 13 .
Какртинка это пример как надо делать.
Найти все числа, которые делятся на N среди :а)всех двузначных чисел ;б)всех трёхзначных чисел?
Найти все числа, которые делятся на N среди :
а)всех двузначных чисел ;
б)всех трёхзначных чисел.
Помогите пожалуйста?
Помогите пожалуйста.
Из всех двузначных чисел вывести на экран те из них , сумма цифр которых равна А.
Найти все числа, которые делятся на N средиа) всех двузначных чисел ; б) всех трёхзначных чисел?
Найти все числа, которые делятся на N среди
а) всех двузначных чисел ; б) всех трёхзначных чисел.
Из всех двузначных чисел вывести на экран те из них, сумма цифр которых равна А?
Из всех двузначных чисел вывести на экран те из них, сумма цифр которых равна А.
( А вводится с клавиатуры).
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0?
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0.
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делиться на 13?
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делиться на 13.
В ПАСКАЛЕ!
Пожалуйста!
Найдите количество двузначных чисел, которые делятся на сумму своих цифр?
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
Найдите количество двузначных чисел, которые делятся на сумму своих цифр?
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
Найдите количество двузначных чисел, которые делятся на сумму своих цифр?
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
Вы находитесь на странице вопроса Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var i, a, b, c : integer ;
Begin
For i : = 10 to 99 do
begin
a : = i div 10 ;
b : = i mod 10 ;
c : = a * a + b * b ;
if c mod 13 = 0 then
writeln(i) ;
end ;
End.