Если я правильно понял, то
1. Вариант С++
#include <iostream>
int NOD(int var1, int var2) //Алгоритм Евклида
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
int NOK(int var1, int var2)
{
return (var1 * var2) / NOD(var1, var2);
}
int main()
{
short int
a, b, c, d,
m, n, NK;
std::cin >> a >> b >> c >> d;
NK = NOK(b, d); // избегаем не нужных вычислений
m = a * (NK / b) + c * (NK / d);
n = NOK(b, d);
std::cout << "Первая дробь: " << a << "/" << b << std::endl;
std::cout << "Вторая дробь: " << c << "/" << d << std::endl;
std::cout << std::endl << "Результат: " << m << "/" << n << std::endl;
}
2. C
#include <stdio.h>
int NOD(int var1, int var2) //Алгоритм Евклида
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
int NOK(int var1, int var2)
{
return (var1 * var2) / NOD(var1, var2);
}
int main()
{
short int
a, b, c, d,
m, n, NK;
scanf("%hi%hi%hi%hi", &a, &b, &c, &d);
NK = NOK(b, d); // избегаем не нужных вычислений
m = a * (NK / b) + c * (NK / d);
n = NOK(b, d);
printf("Первая дробь: %hi/%d\n", a, b);
printf("Вторая дробь: %hi/%d\n", c, d);
printf("Результат: %hi/%hi\n", m, n);
}
begin
//1 вариант
Range(-3, 11).Sum.Println;
//2 вариант
Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;
//3 вариант
var Sum := 0;
foreach var x in Range(-3, 11) do
Sum += x;
Sum.Println;
//4 вариант
Sum := 0;
for var i := -3 to 11 do
Sum += i;
Sum.Println;
//5 вариант
Sum := 0;
var j := -3;
while j <= 11 do
begin
Sum += j;
j += 1
end;
Sum.Println;
//6 вариант
Sum := 0;
j := -3;
repeat
Sum += j;
j += 1;
until j > 11;
Sum.Println;
end.
var
a:array[1..5] of Integer;
i, j, sum:Integer;
s:string;
begin
Readln(s);
sum:=0;
for i:=1 to 5 do
begin
if (Length(s)>=2) then
begin
j:=Pos(' ', s);
a[i]:=StrToInt(Copy(s, 1, j-1));
sum:=sum+a[i];
Delete(s, 1, j);
end
else
begin
a[i]:=StrToInt(s);
sum:=sum+a[i];
end;
end;
for i:=1 to 5 do
begin
if (a[i]<>0) then
begin
a[i]:=a[i]-sum;
Write(a[i], ' ');
end
else
begin
a[i]:=a[i];
Write(a[i], ' ');
end;
end;
end.