Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Ответ:
Г. 273 (в восьмеричной)
Объяснение:
1062₈ = 2*8⁰ + 6*8¹ + 0*8² + 1*8³ = 562₁₀
567₈ = 7*8⁰ + 6*8¹ + 5*8² = 375₁₀
562₁₀ - 375₁₀ = 187₁₀
187₁₀ = 3*8⁰ + 7*8¹ + 2*8² = 273₈