- 3D nyomtatás
- Milyen egeret válasszak?
- Szünetmentes tápegységek (UPS)
- Remekül felszerelt, fürge 5K2K monitorral jelentkezett az LG
- AMD Navi Radeon™ RX 6xxx sorozat
- Milyen TV-t vegyek?
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Házimozi belépő szinten
- Dell asztali gépek
Új hozzászólás Aktív témák
-
b14
senior tag
válasz
#57764352 #111 üzenetére
HIHI
Az osztoit igy lehet meghatarozni egy szamnak (pascal megoldas, c-ben is kuldhetem, ha kell):
{osztoi.pas}
uses crt;
var a, b, szam, r , i, h,g : longint;
aszamai, bszamai: array [1..200] of longint;
begin
writeln('Kerem az ''A'' erteket');
readln(a);
writeln('Kerem a ''B'' erteket');
readln(b);
clrscr;
writeln('A szamai: ');
writeln;
for szam := a downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
aszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
h:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
end;
clrscr;
writeln('B szamai: ');
writeln;
for szam := b downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
bszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
g:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
writeln('Kozos osztoik: ');
for i:=1 to h do for r:=1 to g do if r = i then writeln(i);
end.
Ez egy eleg hosszu megoldas, igazabol nagyon is rogtonzott, lehet, hogy van benne hiba.
Legnagyobb kozos osztot ugyan ezen az alapon, csak egy kicsit kell rajta szerkeszteni, a relatív prímek csak egy kicsit belenyulni a legnagyobb kozos oszto progi
De juteszembe: if r = 1 then writeln('RELATÍV PRÍMEK!');
Ha kell meg tudom csinalni a tobbit is!
[Szerkesztve]
Új hozzászólás Aktív témák
- Honor 400 Pro - gép a képben
- Megújult a PROHARDVER!
- Hegesztés topic
- Lakáshitel, lakásvásárlás
- 3D nyomtatás
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Android alkalmazások - szoftver kibeszélő topik
- Nyaralás topik
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- NBA és kosárlabda topic
- További aktív témák...
- Konzol felvásárlás!! Xbox Series S, Xbox Series X
- Nvidia Quadro M2000/ M4000/ P2000/ P2200/ P4000/ P5000/ RTX 4000/ RTX A2000 / RTX A4000
- Bomba ár! Fujitsu LifeBook U7310 - i5-10GEN I 16GB I 256SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- AKCIÓ! Intel Core i7 7700K 4 mag 8 szál processzor garanciával hibátlan működéssel
- HPE Aruba PoE+ L3 switch raktárról azonnal elérhető!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest