Пожалуйста! решение задач! - Pascal
Формулировка задачи:
1.Найти все натуральные числа из промежутка от a до b,у которых количество делителей превышает заданное число K.
2.Найти все натуральные числа a,b и c из интервала от 1 до 20,для которых выполняется равенство a+b=C2(c в квадрате).
3.Дано натуральное число:
а)найти количество цифр данного числа,больших A(A вводится с клавиатуры).
б)верно ли,что данное число принадлежит промежутку от A до B и кратно 3,4 и 5(A и B вводятся с клавиатуры)?
4.Найти сумму всех чисел из промежутка от A до B ,кратных 13 и 5(A и B вводятся с клавиатуры).
5.Найти все симметрические натуральные числа из промежутка от A до B (A и B вводятся с клавиатуры).
Можно использовать только самые простые операторы, чтобы учитель ничего не заподозрил. Хоть задачи и простые, но решить не могу, знания на нуле. Спасибо заранее!!!
Решение задачи: «Пожалуйста! решение задач!»
textual
Листинг программы
var a, b, c: Byte; begin for a := 1 to 20 do for b := 1 to 20 do for c := 1 to 20 do if ((a + b) = Sqr(c)) then WriteLn(a, ' ', b, ' ', c); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д