Pascal программаОпределить процедуру, которая приводит дробь к несокра¬тимому виду. Процедура должна иметь четыре параметра: чис
Pascal программа Определить процедуру, которая приводит дробь к несокра¬тимому виду. Процедура должна иметь четыре параметра: числи¬тель и знаменатель исходной дроби; числитель и знаменатель ре¬зультирующей дроби.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
begin var sgnc:=Sign(a); // мы должны учитывать знак! var sgnd:=Sign(b); // мы должны учитывать знак! c:=Abs(a); d:=Abs(b); var g:=Gcd(c,d); c:=(c div g)*sgnc; d:=(d div g)*sgnd end;
begin var p,q,r,s:integer; Write('Введите числитель и знаменатель: '); Read(p,q); RedFrac(p,q,r,s); Writeln(p,' / ',q,' = ',r, ' / ',s) end.
Var A:integer; Begin WriteLn('Введи двузначное число'); Read(A); if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная') else Write('Сумма цифр НЕчётная') End.