4’e bölünemeyen iki basamaklı en küçük 38. sayı kaç olduğunu yazan program

4’e bölünemeyen iki basamaklı en küçük 38. sayı kaç olduğunu yazan program


4’e bölünemeyen iki basamaklı en küçük 38. sayı kaç olduğunu yazan program


uses crt;
   var
   x,y:integer;
   begin
   clrscr;
   for x:=10 to 99 do begin
   if ((x mod 4)<>0)then
   y:=y+1;
   if y=38 then begin

   writeln(x);break;end;   end;
   readln;
   end.

Linkback: https://www.buyuknet.com/4e-bolunemeyen-iki-basamakli-en-kucuk-38-sayi-kac-oldugunu-yazan-program-t38221.0.html