Hogyan írjam át ezt a Pascal programot?
A feladat az, hogy határozzam meg három szám legnagyobb közös osztóját és legkisebb közös többszörösét. Megírtam a programot, úgy hogy két számot olvas be, de nincs ötletem, hogyan írjam át, hogy a harmadik szám is szerepeljen. Valaki segítene?
var a,b,x,y,m:integer;
begin
readln(a);
readln(b);
x:=a;
y:=b;
repeat
m:=a mod b;
a:=b;
b:=m;
until m=0;
writeln('lnko=',a);
writeln('lkkt=',x*y div a);
end.
válasza: válasza: válasza: válasza:nbsp; oszto := 2;
WHILE (oszto <= szam1) AND (oszto <= szam2) DO
BEGIN
IF (szam1 MOD oszto = 0) AND (szam2 MOD oszto = 0) THEN
nbsp;nbsp; kozos := oszto;
nbsp;nbsp; oszto := oszto+1
END;
IF (kozos = 0) THEN
nbsp; WRITELN('Nincs közös osztó')
ELSE
nbsp; WRITELN('Legnagyobb közös osztó: ',kozos);
válasza:oszto := 2;
WHILE (oszto <= szam1) AND (oszto <= szam2) DO
BEGIN
IF (szam1 MOD oszto = 0) AND (szam2 MOD oszto = 0) THEN
kozos := oszto;
oszto := oszto+1
END;
IF (kozos = 0) THEN
WRITELN('Nincs közös osztó')
ELSE
WRITELN('Legnagyobb közös osztó: ',kozos);
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!