simplifi.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 15 行

program simplificare;
{fiind date nr. intregi, pozitive a,b,k sa ae verifice daca
fractia a/b se simplifica prin k si sa se scrie simplificata}
var a,b,k:integer;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
write('k= ');
readln(k);
if (a mod k=0) and (b mod k=0) then write('fractia ',a,'/',b,' simplificata prin ',k,' este: ',(a/k):4:1,'/',(b/k):4:1)
else write('fractia nu se simplifica prin ',k);
readln;
end.