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

нужно написать код под эту задачу на языке PYTHON(приму и с++)В ответе подпишите на каком языке вы дали ответ. Неверный ответ удаляю!!

Отрезок
На клетчатой бумаге нарисовали отрезок соединяющий точки с координатами (a,b) и (c,d). Через сколько клеток проходит этот отрезок (считается, что отрезок проходит через клетку, если он проходит через ее внутренность, если же он проходит только через вершину или по границе клетки, считается, что он не проходит через клетку).

Входные данные

Программа получает на вход четыре целых числа, записанных в одной строке: a,b,c,d. Все числа по модулю не превосходят 106.

Выходные данные

Выведите ответ на задачу.

Примеры
Ввод 1
0 0 6 4
Вывод
8

👇
Ответ:
Doshik131
Doshik131
04.03.2022

Python

def nod(a, b):

if b > 0:

return nod(b, a%b)

else:

return a

a = abs(x1 - x2)

b = abs(y1 - y2)

d = nod(a, b)

print(d * (a//d + b//d - 1))

4,6(96 оценок)
Открыть все ответы
Ответ:
shitova20023p02gai
shitova20023p02gai
04.03.2022
Var a: array[1..10] of integer;
    b: array[1..10] of real;
    i,n: integer;
    s: real;
begin
  s:=0; n:=0;
  write('массив a:  ');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if a[i]<0 then 
    begin
      s:=s+a[i];
      n:=n+1;
    end;  
    write(a[i],' ');
  end;
  s:=s/n; 
  writeln;
  writeln('среднее арифметическое отрицательных: ',s);
  writeln('количество отрицательных: ',n);
  write('массив b:  ');
  for i:=1 to 10 do
  begin
    if a[i]<0 then b[i]:=s
    else b[i]:=a[i];
    write(b[i]:7:3);
  end;
end.

массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000
4,5(71 оценок)
Ответ:
айка395
айка395
04.03.2022
ответ: 9504 

var steps := 12; // За кол-во ходов
var Xend  := 6; // В точку с координатой X
var Yend  := 4; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin 
    if step = 0 then   
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else   
        begin     
             Find(step - 1, X + 1, Y    );     
             Find(step - 1, X - 1, Y    );     
             Find(step - 1, X    , Y + 1);     
             Find(step - 1, X    , Y - 1);   
        end;
end; 
begin 
     Find(steps, 0, 0); 
     Print(vars);
end.
4,6(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ