М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mita421132
mita421132
27.02.2023 09:37 •  Информатика

Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа), перемещающую чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). чертёжнику был дан для исполнения следующий алгоритм: сместиться на (52,-7) повтори n раз сместиться на (15, 22) сместиться на (a, b) конец сместиться на (–17, –35) определите минимальное натуральное значение n > 1, для которого найдутся такие значения чисел a и b, что после выполнения программы чертёжник возвратится в исходную точку?

👇
Ответ:
Если я правильно поняла смысл задачи, то нужно найти такое минимальное натуральное n, при котором указанные значения a и b были бы целыми числами. Тогда могу предложить такой вариант решения:

Составим для х и у уравнения пути чертежника, при котором он возвращается в исходную точку (система уравнений):
1) для х: 52+n*(15+a)-17=0,
2) для y: -7+n*(22+b)-35=0.

Выразим в обоих уравнениях a и b через n :
1) a=-35/n-15
2) b=42/n-22

Теперь, чтобы a и b оказались целыми числами, мы должны найти число, на которое 35 и 42 делятся без остатка, то есть НОД.
Итак, n = НОД(35 и 42) = 7.
=>

1) a = -35/7-15 = -20
2) b = 42/7-22 = -16

ответ: n=7
4,6(74 оценок)
Открыть все ответы
Ответ:
Russiansss
Russiansss
27.02.2023

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

4,6(19 оценок)
Ответ:
Pusya102
Pusya102
27.02.2023
Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.
4,6(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ