



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






More Options ...
Kategoriler
Etiketler
Blog RSS
Yorum RSS


Void « Default
Life
Earth
Wind
Water
Fire
Light 