В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
фFantom
фFantom
01.03.2021 00:10 •  Информатика

Створити блок схему алгоритму та програму мовою програмування для такої задачі: Знайти НСД двох введених з клавіатури чисел , будь ласка

Показать ответ
Ответ:
sveta7811
sveta7811
20.07.2020 22:10

Объяснение:

Электронные таблицы или табличные процессоры предназначаются для решения задач, данные которых могут быть представлены в виде таблиц.  Без электронных таблиц не обходятся бухгалтеры и кладовщики, участники бирж, руководители брокерских контор, банков, финансовые менеджеры. Их пользуются не только в финансовой и учетной деятельности, но и в научной для выполнения математических расчетов. Электронные таблицы предназначены для обработки численных данных, автоматизации рутинных процессов пересчета производных величин в зависимости от изменения исходных данных.

Книга — один из видов печатной продукции: непериодическое издание, состоящее из сброшюрованных или отдельных бумажных листов (страниц) или тетрадей, на которых нанесена типографским или рукописным текст

Ячейка — бокс, релейный шкаф. Ячейка — сейф в банке, сдаваемый клиентам внаём.

Диапазон ячеек – базовое структурное понятие электронной таблицы, определяющее блок ячеек (от правого верхнего до левого нижнего угла прямоугольного блока) или несколько прямоугольных блоков.

0,0(0 оценок)
Ответ:
iva0607
iva0607
02.10.2020 05:02
Перебираешь все взаимно простые m > n разной четности, так чтобы m*m было меньше 30. И формируешь тройки по формуле:
k*(m*m-n*n, 2*m*n, m*m + n*n)

Например так:
function gcd(a,b: integer): integer;
begin
  if b = 0 then gcd := a
  else if (a > b) and (b > 0) then gcd := gcd(b, a mod b)
  else gcd := gcd(b, a);
end;

procedure Print(m,n:integer);
var i, a, b, c: integer;
begin
  repeat
    i := i + 1;
    a := (m*m-n*n)*i;
    b := 2*m*n*i;
    c := (m*m+n*n)*i;
    if c < 30 then
      writeln(a, ' ', b, ' ', c)
    else break;
  until false;
end;

var m, n, s: integer;
begin
  s := Trunc(Sqrt(30));
  for m := 1 to s do
    for n := m + 1 to s do 
      if (gcd(n, m) = 1) and ((m mod 2)<>(n mod 2)) then
        Print(n, m)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота