Besta69
28.02.2020 18:44

решить задачу на JavaScript:

Входные данные:
Вводятся 4 числа: a, b, c и d.

Выходные данные:
Выведите все числа на отрезке от a до b, дающие остаток c при делении на d. Если таких чисел не существует, то ничего выводить не нужно.

Примеры:
входные данные:
2
5
0
2
выходные данные:
2 4

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
maksi0071
31.07.2021 19:25
Var abcd,a,b,c,d:integer;
begin
   abcd:=4579;
   a:=abcd div 1000; 
  b:=abcd div 100 mod 10;
   c:=abcd div 10 mod 10; 
  d:=abcd mod 10;
   Writeln(a,b,c,d);
   Writeln(a,c,b,d);
   Writeln(b,a,c,d);
   Writeln(b,c,a,d); 
  Writeln(c,a,b,d); 
  Writeln(c,b,a,d);
   Writeln(a,d,b,c); 
  Writeln(a,d,c,b);
   Writeln(b,d,a,c);
   Writeln(b,d,c,a);
   Writeln(c,a,d,b);
   Writeln(c,b,d,a);
   Writeln(a,b,d,c);
   Writeln(a,c,d,b); 
  Writeln(d,b,a,c); 
  Writeln(d,b,c,a); 
  Writeln(d,c,a,b); 
 Writeln(d,c,b,a); 
  end.
Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.
0,0(0 оценок)
Ответ:
Лолыч11
08.05.2021 17:53
1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения:
a_n=2\cdot a_{n-1}+1, \ n \in \mathbb R \\ a_n=2^n-1
Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:
2^n-135; \ 2^n36 \to n=6 \quad (2^5=32, 2^6=64)
Т.е. это произойдет в шестой день. Хороший проверить работу программы.

var
  i,an,s,f:integer;
 
begin
  s:=0; an:=0; f:=0;
  for i:=1 to 10 do
  begin
    an:=2*an+1;
    if f=0 then
      if an>35 then
      begin
        Writeln('День ',i,', за раз съедено комаров- ',an);
        f:=1
      end;
    s:=s+an
  end;
  Writeln('За 10 дней съедено комаров: ',s)
end.

Результат выполнения программы:
День 6, за раз съедено комаров- 63
За 10 дней съедено комаров: 2036

2. Используем алгоритм Евклида.

var
  a, b: integer;
begin
  Write('Введите два натуральных числа: '); Readln(a,b);
  if a<>b then
    repeat
      if a > b then a := a - b
      else b := b - a
    until a=b;
  Writeln('НОД=',b)
end.

Тестовое решение:
Введите два натуральных числа: 264 5436
НОД=12
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота