Предмет: Информатика,
автор: wehupog
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: alena9812
Предмет: Українська мова,
автор: yriii5
Предмет: Русский язык,
автор: dfrjkr
Предмет: Математика,
автор: SminoVVVa
Предмет: Математика,
автор: Аноним