mod'suz katsayi programi

program bolunme;

var i,a,b,c,d:integer;

begin

writeln('Ust sayi siniri kac olsun?');
readln(b);

Writeln('Kacin katlari bulunsun?');
readln(d);

c:=b div d;

for i:=1 to b do
begin
for a:=1 to c do
begin
if d*a=i then Writeln(i);
end;
end;
readln;

end.

LONGINT

PROGRAM repeat1;
USES CRT;
var i,toplam,a : LONGINT;


BEGIN

WRITELN('BIR TAM SAYI GIRINIZ ');
READLN(a);
i:=0;
toplam:=0;
CLRSCR;

REPEAT
IF i MOD 5 = 0 THEN

BEGIN
toplam:=toplam+i;
writeln(i);
END;
i:=i +1;

UNTIL i>a;

WRITELN (toplam);


READLN;
END.

5 kasım- repeat*until

program deneme1;
uses crt;
var i, toplam, toplam2, toplam3: integer;

begin
clrscr;
i:=0;
toplam:=0;
toplam2:=0;
toplam3:=0;

repeat
if i mod 5= 0 then

begin
toplam:=toplam+i;
end;

if i mod 7= 0 then

begin
toplam2:=toplam2+i;
end;

if i mod 3= 0 then

begin
toplam3:=toplam3+i;
end;


i:= i+1;
until i>50;
writeln(toplam);
writeln('7 nin katlarinin toplami: ', toplam2);
writeln('3 un katlarinin toplami:', toplam3);

readln;
end.

50'ye kadar sayılardan 5'in katlarının, 3'ün katlarının, 7'nin katarının ayrı ayrı toplamı - while ile

PROGRAM deneme5;
USES CRT;
VAR i, TOPLAM!, TOPLAM2, TOPLAM^3 : INTEGER;

BEGIN
CLRSCR;
i:=0;
TOPLAM1 := 0;
TOPLAM2 := 0;
TOPLAM3 := 0;


WHILE i < 50 DO
BEGIN

IF i MOD 5 = 0 THEN
BEGIN
TOPLAM1 := TOPLAM1 + i;
END;

IF i MOD 3 = 0 THEN
BEGIN
TOPLAM2 := TOPLAM2 + i;
END;

IF i MOD 7 = 0 THEN
BEGIN
TOPLAM3 := TOPLAM3 + i;
END;
i = i + 1;
END;

WRITELN (‘ BESIN KATLARININ TOPLAMI = ‘, TOPLAM1);
WRITELN (‘ UCUN KATLARININ TOPLAMI = ‘, TOPLAM2);
WRITELN (‘ YEDININ KATLARININ TOPLAMI = ‘, TOPLAM3);

READLN;
END;

50'ye kadar 2'şer 2'şer artan olan sayılardan 5'in katları olanların toplanması - while kullanılarak

PROGRAM deneme4;
USES CRT;
VAR i : INTEGER;

BEGIN
CLRSCR;
i:=0;

WHILE i < 50 DO
BEGIN
IF i MOD 5 = 0 THEN
BEGIN
WRITELN(i);
END;
i = i + 2;

END;

READLN;
END.

50'ye kadar sayılardan 5'in katlarının toplamı - for ile

PROGRAM deneme3;
{CONST}
USES CRT;
VAR i,toplam: INTEGER;

BEGIN
CLRSCR;
toplam := 0;

FOR i := 1 TO 50 DO
BEGIN
IF ( i MOD 5 = 0) THEN
BEGIN
WRITELN(i);
toplam := toplam + i;
END;
END;

WRITELN(toplam);

READLN;
END.

50'ye kadar sayıların ekrana yazdırılması - for ile

PROGRAM deneme1;
USES CRT;
VAR i: INTEGER;

BEGIN
CLRSCR;

FOR i := 1 TO 50 DO
WRITELN(i);

READLN;
END;