27) (А. Куканова) Рассматривается множество целых чисел, принадлежащих числовому отрезку (3712;
8432), которые удовлетворяют следующим условиям:
- запись в двоичной и четверичной системах счисления заканчивается одинаковой цифрой;
- кратны 13, 14 или 15.
Найдите количество таких чисел и минимальное из них.
написать программу на паскаль
Ответы
Ответ дал:
8
Ответ:
program kol;
var k, n, min:integer;
begin
k:=0; min:=8433;
for n:= 3712 to 8432 do
if (n mod 2= n mod 4) and (n mod 13=0) and (n mod 14=0) and (n mod 15=0) then
begin
if min>n then
min:=n;
k:=k+1;
end;
Writeln (k,' ',min);
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад