с информатикой надо записать программу на паскале
кто понимает
буду очень благодарна
Рассматривается множество целых чисел, принадлежащих числовому отрезку [1529; 9482], которые удовлетворяют следующим условиям:
− запись в двоичной системе закачивается на 01;
− запись в пятеричной системе заканчивается на 3.
Найдите минимальное из таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 107.
srs777s
1
03.02.2021 22:24
95
Другие вопросы по теме Информатика
F1kser
22.02.2022 01:17
Walker95
22.02.2022 01:48
yaxyeu
22.02.2022 01:58
basgal67
28.12.2020 16:25
BerikLord777
28.12.2020 16:24
бjulfyн
28.12.2020 16:23
arsen20171
28.12.2020 16:23
spinny9tim
26.06.2019 20:20
орало2
03.06.2019 03:20
iljapradunp06w11
07.02.2021 18:07
Популярные вопросы
- Собаку, изображённую на знаменитом автопортрете художника у. хогарта, зовут...
1 - Что такое дзеясловы абвеснага ладу. заранее ....
1 - 98 определять массу и плотность твердых тел и жидкостей...
2 - Чем мне понравился стих есенина я покинул родимый дом и почему я его выбрала?...
1 - Пллощадь квадрата 81 см. чему равен его периметр?...
1 - Особливості чоловічого та жіночого вбрання епохи бароко та рококо. які його елементи...
1 - Сравни.поставь знаки , или = 3/4 ч 40мин 2/5 мин 27 сек 1/10 ц 50 кг 3/10 мин 18...
3 - 60 ! чему и как учили митрофана из комедии недоросль ? опирайтесь на вопросы1.что...
3 - Найти примеры нарушения прав человека в мире ст.3,4,5,13,18,19,21 конвенции по...
2 - :y(y-5)(y++2)(y²-2y+4) разложите на множители: 1. a²-36b²+a-6b 2. 25x²-10xy+y²-9...
2
var
i,a,j,k,b,s,counter : integer;
begin
s := 0;
counter := 1;
for i := 1529 to 9482 do
begin
j:= i;
k := i;
repeat a:= a*10+(j mod 2);
j:=j div 2;
until j=0;
repeat b:=k*10 + (k mod 5);
k:=k div 5;
until k=0;
if (a mod 100 = 01) and (b mod 10 = 3) then
begin
s := s + i;
if counter = 1 then
begin
counter := counter + 1;
writeln('Минимальное такое число:', i);
end;
end;
end;
writeln('Сумма чисел:',s);
end.