Var a: integer; begin writeln('введите число'); readln(a); if (a mod 5=0) then writeln('число ',a,' делится на число 5') else writeln('число ',a,' не делится на число 5'); if (a mod 11=0) then writeln('число ',a,' делится на число 11') else writeln('число ',a,' не делится на число 11'); if (a mod 13=0) then writeln('число ',a,' делится на число 13') else writeln('число ',a,' не делится на число 13'); end.
Спасибо
Ответ дал: Гость
если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.
Ответ дал: Гость
наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.
наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.
переведем эти числа в десятичную систему счисления:
1000₅= 5³ = 125
4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624
количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500
Популярные вопросы