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

Составить алгоритм в виде блок-схемы для решения следующей задачи​


Составить алгоритм в виде блок-схемы для решения следующей задачи​

Показать ответ
Ответ:
shabdanova16
shabdanova16
30.01.2021 04:35
Int gcd(int a, int b){
return b ? gcd(b, a%b) : a;
}
Это красивая реализация в виде тернарной строчки. Рекурсивная функция.

int gcd(int a, int b){
if (b)
return gcd(b, a%b);
else
return a;
}
Это тоже рекурсивная функция, просто не с тернарной строчкой, а с ифом.

int gcd(int a, int b){
while (b){
swap(a,b);
b%=a;
}
return a;
}
Это реализация циклом. Нерекурсивная функция.

Вот, среди них можешь выбрать любую функцию, которая тебе больше нравится. Теперь программа.
#include<iostream>
using namespace std;
int gcd(int a, int b){
//скопипастишь любую понравившуюся
}
int main(){
int a,b,c,d;
cin>>a>>b>>c>>d;
cout<<gcd(gcd (a,b), gcd(b,c));
return 0;
}

Удачи❤
0,0(0 оценок)
Ответ:
shikunovnikitkp00sz1
shikunovnikitkp00sz1
09.05.2021 02:53
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

function aToDec(n:string;k:integer):integer;
// Перевод из системы по основанию k в десятичную
begin
  var s:='0123456789ABCDEF';
  Result:=0;
  var pa:=1;
  for var i:=Length(n) downto 1 do begin
    Result+=pa*(Pos(n[i],s)-1);
    pa*=k
    end
end;

function DecToa(n,k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
  Result:='';
  while n>0 do begin
    var r:=n mod k;
    if r<10 then Result:=r+Result
    else Result:=Chr(Ord('A')+r-9)+Result;
    n:=n div k
    end
end;

function AtoB(s:string;A,B:integer):string;
// Перевод из системы по основанию A в систему по основанию B
begin
  Result:=DecToa(aToDec(s,A),B)
end;
   
begin
  var n:=ReadlnString('Какое число перевести?');
  var (a,b):=ReadInteger2('Исходное и результирующее основания:');
  Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.

Пример
Какое число перевести? 2018
Исходное и результирующее основания: 10 16
2018(10) = 7E2(16)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота