function Gcd(a,b: longint): longint; { Нахождение НОД } var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; gcd := a end;
procedure ShortFraction(var m,n:longint); var k:longint; begin k:=Gcd(m,n); m:=m div k; n:=n div k end;
var a,b:longint; begin Write('Введите числитель и знаменатель дроби: '); Readln(a,b); ShortFraction(a,b); Writeln('Дробь после сокращения равна ',a,'/',b) end.
Тестовое решение: Введите числитель и знаменатель дроби: 25 15 Дробь после сокращения равна 5/3
Решение в лоб:
#include <iostream>
#include <vector>
using namespace std;
int main() {
vector<int> a(10);
cout << "Enter array:" <<endl;
for (int& i : a) {
cin >> i;
}
int m = 0;
for (int i = 0; i < a.size(); ++i) {
if (a[i] > 0) {
m = i + 1;
}
}
cout << "Enter element to insert:" << endl;
int v;
cin >> v;
a.insert(a.begin() + m, v);
cout << "Result is below:" << endl;
for(const int& i : a) {
cout << i << ' ';
}
cout << endl;
return 0;
}