var a,b,c,d,e,f:integer; function nod(m,n:integer):integer; begin while m<>n do if m>n then m:=m-n else n:=n-m; nod:=m end; begin write('введите числитель1, знаменатель1, числитель2, знаменатель2'); readln(a,b,c,d); e:=a*d+b*c; f:=b*d; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('сложение = ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('сложение = ',e,'\',f); end; e:=a*c; f:=b*d; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('умножение = ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('умножение = ',e,'\',f); end; e:=a*d; f:=b*c; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('деление= ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('деление = ',e,'\',f); end; end.
int a; int b; Console.WriteLine("Введите первое число"); a = int.Parse( Console.ReadLine()); ///1)Вводим первое число Console.WriteLine("Введите второе число"); b = int.Parse(Console.ReadLine()); ///2) Вводим второе число
if (a < b) Console.WriteLine("Меньше а = " + a); ///3)Сравниваем, если а<b пишем а if (a > b) Console.WriteLine("Меньше b = " + b); ///4)Сравниваем, если а>b пишем b if (a == b) Console.WriteLine("а = b = " + a); ///3)Сравниваем, если а=b пишем а
var a,b,c,d,e,f:integer;
function nod(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nod:=m
end;
begin
write('введите числитель1, знаменатель1, числитель2, знаменатель2');
readln(a,b,c,d);
e:=a*d+b*c;
f:=b*d;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('сложение = ',e)
else begin
e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('сложение = ',e,'\',f);
end;
e:=a*c;
f:=b*d;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('умножение = ',e)
else begin
e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('умножение = ',e,'\',f);
end;
e:=a*d;
f:=b*c;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('деление= ',e)
else begin e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('деление = ',e,'\',f);
end;
end.